Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6310
Последний выпуск: 19.06.2015

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

Автор: Terrance Hui
www.исходники.ru

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

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

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог