Как изменить стандартные надписи кнопок в диалоговом окне OpenDialog, SaveDialog и других? Допустим, у Вас есть форма с компонентом OpenDialog и Вам нужно изменить надписи кнопок Открыть и Отмена на какие-либо другие. Запишите этот код в событие OnShow компонента OpenDialog:
procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
{ Открыть меняем на Открываем }
SetDlgItemText (GetParent (OpenDialog1.Handle),
IDOK, PChar ('&Открываем')) ;
{Отмена - на Не будем }
SetDlgItemText (GetParent (OpenDialog1.Handle),
IDCANCEL, PChar ('&Не будем')) ;
end;
И вот результат:
Комментарии