Delphi для всех

Сделать кнопки в MessageDlg русскими

Текст на кнопках в MessageDlg берется из файла ресурсов. Но поменять их не так просто. При каждой компиляции Delphi "восстанавливает" все "Cancel" и "Yes". Да и с кодировкой проблемы. Для решения этой задачи можно использовать стандартную функцию WinAPI MessageBox.

procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(Form1.Handle,
PChar('Вы хотите сохранить изменения?'),
PChar('Моя программа'), 3);
end;

Form1.Handle можно заменить Application.Handle. Тогда пользователь не сможет пользоваться ни одним окном вашего приложения, пока не ответит.

Хостинг от uCoz