Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Определить щелчок мышкой по заголовку формы

Delphi , Программа и Интерфейс , Заголовок формы

Определить щелчок мышкой по заголовку формы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   procedure WMNCRBUTTONDOWN(var msg: TMessage); message WM_NCRBUTTONDOWN;
   procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCLBUTTONDOWN;
   procedure WMNCLBUTTONDBLCLK(var msg: TMessage); message WM_NCLBUTTONDBLCLK;
 end;



 implementation


 procedure TForm1.WMNCRBUTTONDOWN(var msg: TMessage);
 begin
   if msg.wParam = HTCAPTION then Caption := 'Right Click!';
   // Message.Result := 0; {to ignore the message} 
  inherited;
 end;

 procedure TForm1.WMNCLBUTTONDOWN(var msg: TMessage);
 begin
   if msg.wParam = HTCAPTION then Caption := 'Left Click!';
   // Message.Result := 0; {to ignore the message} 
  inherited;
 end;

 procedure TForm1.WMNCLBUTTONDBLCLK(var msg: TMessage);
 begin
   if msg.wParam = HTCAPTION then Caption := 'Double Click!';
   // Message.Result := 0; {to ignore the message} 
  inherited;
 end;

Программный код на Delphi, который определяет три процедуры для обработки событий нажатия кнопок мыши на форме: WMNCRBUTTONDOWN (правая кнопка мыши), WMNCLBUTTONDOWN (левая кнопка мыши) и WMNCLBUTTONDBLCLK (двойной клик левой кнопки мыши).

Процедуры проверяют, является ли кликнутым элементом заголовок формы (HTCAPTION), и если это так, изменяют заголовок формы, чтобы указать тип события нажатия кнопки мыши. Комментарий // Message.Result := 0; {to ignore the message} предполагает, что код был предназначен для игнорирования стандартного поведения события нажатия кнопки мыши, но это не реализовано. Если вы хотите игнорировать сообщение, вам нужно установить msg.Result в 0, как указано в комментарии.

  • WMNCRBUTTONDOWN: Процедура обрабатывает клики правой кнопки мыши на заголовке формы. Если кликнутый элемент - заголовок, она изменяет заголовок формы на 'Right Click!'.

  • WMNCLBUTTONDOWN: Процедура обрабатывает клики левой кнопки мыши на заголовке формы. Если кликнутый элемент - заголовок, она изменяет заголовок формы на 'Left Click!'.

  • WMNCLBUTTONDBLCLK: Процедура обрабатывает двойной клик левой кнопки мыши на заголовке формы. Если кликнутый элемент - заголовок, она изменяет заголовок формы на 'Double Click!'.

Код использует свойство wParam параметра msg для определения, какой кнопкой мыши был нажат и была ли это одиночная клика или двойной клик.

Статья описывает способ определения щелчка мыши по заголовку формы в Delphi, используя обработчики событий WM_NCRBUTTONDOWN, WM_NCLBUTTONDOWN и WM_NCLBUTTONDBLCLK.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Заголовок формы ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-23 21:17:40/0.0036311149597168/0