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

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

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "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);
  ACheckBox.Caption:='Do not show me again.';
  ACheckBox.Parent:=AMsgDialog;
  ACheckBox.Top := 121;
  ACheckBox.Left := 8;
  with AMsgDialog do
  try
    Caption := 'Dialog Title' ;
    Height := 169;
    ACheckBox.Width:=AMsgDialog.Width-16;
    Case ShowModal of
      ID_YES: ;//здесь Ваш код после того как диалог будет закрыт
      ID_NO:  ;
    end;
    If ACheckBox.Checked then
    begin
      //...
    end;
  finally
    ACheckBox.Free;
    Free;
  end;
end;

Так же Вы можете изменить диалог по Вашему усмотрению.

Эта запись была добавлена в Воскресенье, 18 мая, 2008 - 23:19 В разделы Диалоги, Операционная система. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.