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

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.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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