Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Файловая система \ Help файлы \ Обработать нажатие на кнопку Help в диалоговом окне

Обработать нажатие на кнопку Help в диалоговом окне

type
   TForm1 = class(TForm)
   private
     procedure wmNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
     procedure wmNCLButtonUp(var Msg: TWMNCLButtonUp); message WM_NCLBUTTONUP;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.DFM}

 procedure TForm1.wmNCLButtonDown(var Msg: TWMNCLButtonDown);
 begin
   if Msg.HitTest = HTHELP then
   begin
     Msg.Result := 0; // swallow mouse down on biHelp border icon 
  end
   else
     inherited;
 end;

 procedure TForm1.wmNCLButtonUp(var Msg: TWMNCLButtonUp);
 begin
   if Msg.HitTest = HTHELP then
   begin
     Msg.Result := 0;
     ShowMessage('Hi!'); // Show your help here 
  end
   else
     inherited;
 end;

Название: Обработать нажатие на кнопку Help в диалоговом окне
Дата публикации: 2004-06-11 (2856 Прочтено)

 
 

 

Page generation 0.032 seconds