Добавляем компонент в стандартный Message dialog.
Falk0ner, вс, 06/07/2008 - 15:34.
Автор: Terrance Hui
Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "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 := 'Do not 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;
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 := 'Do not 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;
Так же Вы можете изменить диалог по Вашему усмотрению.
Взято из http://forum.sources.ru
Отправить комментарий