скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

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



Google  
 

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



Оформил: DeeCo

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;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook