Добавляем компонент в стандартный Message Dialog

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой «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;

Width := 140;

end;

case ShowModal of

ID_YES: ;//здесь Ваш код после того как диалог будет закрыт

ID_NO: ;

end;

if ACheckBox.Checked then

begin

//…

end;

finally

ACheckBox.Free;

Free;

end;

end;

{/codecitation}

Добавить комментарий