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

Alex

Дата 5.11.2004, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 6
Всего: 162

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "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;

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

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »