Автор: Terrance Hui

 

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "Don't show this message again."

 

Используем функцию CreateMessageDialog и добавляем любой компонент до того как будет вызвана ShowModal.

Code:

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;

  

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

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

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить