Как изменить надписи кнопок на стандартном диалоговом окне

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Как изменить стандартные надписи кнопок в диалоговом окне OpenDialog, SaveDialog и других? Допустим, у Вас есть форма с компонентом OpenDialog и Вам нужно изменить надписи кнопок Открыть и Отмена на какие-либо другие. Запишите этот код в событие OnShow компонента OpenDialog:

    Код:
    procedure TForm1.OpenDialog1Show(Sender: TObject);
    begin
     { Открыть меняем на Открываем }
      SetDlgItemText (GetParent (OpenDialog1.Handle),
                      IDOK, PChar ('&Открываем')) ;
      {Отмена - на Не будем }
      SetDlgItemText (GetParent (OpenDialog1.Handle),
                      IDCANCEL, PChar ('&Не будем')) ;
    end;
    change-title-buttons.png