PHP Delphi CSS HTML JavaScript Perl API ASP MySQL XML С++ VBasic WEB разработка *NIX CouchDB Hack Python
Главная Статьи Delphi Добавляем компонент в стандартный Message dialog
Главная
 Главная  Контакты
 
Программинг
Статьи Книги ЧаВО
 
xBOOKi
Fresh Books Операционки Сети
 
Поиск
-------
 
Counters
Яндекс цитирования
Rambler's Top100
-------
 
CryptDisk.4h
Программа которая позволяет создать виртуальный шифрованный логический диск.

cryptdisk.4hack.com

-------
 
 

Добавляем компонент в стандартный 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; 

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



Свежее
Резервное копирование rsync-ом
DNS Amplification (DNS усиление)
Алгоритм Шинглов — поиск нечетких дубликатов текста
Metasploit Framework. Обзор
Использование CouchDB
-------



 
Copyright © 2003-2009   Frikazoid.
Rambler's Top100