CodeNet / Языки программирования / Delphi & Kylix / FAQ - Часто задаваемые вопросы / Маленькие хитрости.
Добавляем компонент в стандартный Message dialog.
Автор: Terrance Hui
www.исходники.ru
www.исходники.ru
Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "Don't show this message again."
Используем функцию CreateMessageDialog и добавляем любой компонент до того как будет вызвана ShowModal.
Например:
procedure TForm1.Button1Click(Sender: TObject); Var AMsgDialog: TForm; ACheckBox: TCheckBox; begin AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]); ACheckBox := TCheckBox.Create(AMsgDialog); with AMsgDialog do try Caption := 'Dialog Title' ; Height := 169; With ACheckBox do begin Parent := AMsgDialog; Caption := 'Don''t show me again.'; top := 121; Left := 8; end; Case ShowModal of ID_YES: ;//здесь Ваш код после того как диалог будет закрыт ID_NO: ; end; If ACheckBox.Checked then begin //... end; finally ACheckBox.Free; Free; end; end;
Так же Вы можете изменить диалог по Вашему усмотрению.