Обработать нажатие на кнопку Help в диалоговом окнеDelphi , Файловая система , Help файлыОбработать нажатие на кнопку 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; Обработка нажатия на кнопку Help в диалоговом окне при помощи обработчиков событий wmNCLButtonDown и wmNCLButtonUp. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Help файлы ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |