wyrd
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| Нет ли в природе готовых диалогов с возможностью менять, например, надписи на кнопках? Если конкретно, то стандартный OpenPictureDialog всем устраивает, только вместо надписи "открыть" на кнопке надо сделать "добавить"... |
Определи новый класс диалога на основе TOpenPictureDialog.
uses ..., CommDlg { для CDM_SETCONTROLTEXT };
type
TMyOpenPictureDialog = class(TOpenPictureDialog)
protected
procedure DoShow; override;
end;
procedure TMyOpenPictureDialog.DoShow;
begin
SendMessage(GetParent(Handle), CDM_SETCONTROLTEXT, 1, Integer(PChar('Добавить')));
end;
Добавлено
Прошу прощения. Метод DoShow должен быть таким:
procedure TMyOpenPictureDialog.DoShow;
begin
inherited DoShow;
SendMessage(GetParent(Handle), CDM_SETCONTROLTEXT, 1, Integer(PChar('Добавить')));
end;
|
