Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "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 dotry
Caption := "Dialog Title" ;
Height := 169;
with ACheckBox dobegin
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 thenbegin//...end;
finally
ACheckBox.Free;
Free;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Добавляем компонент в стандартный Message Dialog", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!