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

Источник: http://www.ReadCoding.net/

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "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; 
      end; 
 
      case ShowModal of 
        ID_YES: ; //здесь Ваш код после того как диалог будет закрыт 
        ID_NO:  ; 
      end; 
 
      if ACheckBox.Checked then 
      begin 
        //... 
      end; 
    finally
      ACheckBox.Free;
      Free;
    end;
end;

Также Вы можете изменить диалог по Вашему усмотрению. Эти изменения основаны на том, что функция CreateMessageDialog создаёт форму, на которой располагаются компоненты стандартного диалога (небольшая иконка, текст сообщения, кнопки). На эту форму можно добавить любой компонент и, соответственно, изменить внешний вид диалога.

Статья добавлена: 21 октября 2005

Следующая статья: Пирамидальная сортировка »

Статьи, похожие по тематике

Для вставки ссылки на данную статью на другом сайте используйте следующий HTML-код:
<a href="https://www.delphi-int.ru/articles/15/">Добавляем компонент в стандартный Message Dialog</a>

Ссылка для форумов (BBCode):
[url=https://www.delphi-int.ru/articles/15/]Добавляем компонент в стандартный Message Dialog[/url]

Быстрая вставка ссылки на статью в сообщениях на сайте:
{{a:15}} (буква a — латинская) — только адрес статьи (URL);
{{статья:15}} — полноценная HTML-ссылка на статью (текст ссылки — название статьи).

Поделитесь ссылкой в социальных сетях:

Комментарии читателей к данной статье

Пока нет комментариев к данной статье. Оставьте свой и он будет первым.

Оставлять комментарии к статьям могут только зарегистрированные пользователи.