Обнаружение наведения курсора на кнопку закрытия в неактивных формах приложений на Delphi

Delphi , Программа и Интерфейс , Формы

При разработке приложений на языке Delphi иногда возникает необходимость обнаружить, находится ли курсор мыши над кнопкой закрытия окна. В данном случае пользователь хочет отслеживать, находится ли курсор мыши на кнопке закрытия в неактивной форме приложения, чтобы использовать эту информацию в момент закрытия формы.

Решение проблемы

Для решения данной задачи можно использовать отправку сообщения WM_NCHITTEST неактивному окну вашего приложения, передавая в lParam координаты курсора на экране. Если возвращаемое значение сообщения будет HTCLOSE, это означает, что курсор находится над кнопкой закрытия.

Однако, стоит помнить, что простое наведение курсора на кнопку закрытия не гарантирует, что пользователь действительно кликнет по ней. Пользователь может переместить курсор на кнопку и затем использовать горячую клавишу Alt+F4 или аналогичные действия для закрытия формы, что также сгенерирует сообщение WM_CLOSE.

Для дифференциации между закрытием окна кликом на кнопку или с помощью клавиатуры, можно обработать в форме сообщения WM_NCLBUTTONDOWN/WM_NCLBUTTONUP и WM_SYSCOMMAND. При закрытии окна кликом по кнопке закрытия перед WM_CLOSE будет отправлено сообщение WM_NCLBUTTON... с wParam, равным HTCLOSE. При закрытии окна с помощью клавиатурных сокращений перед WM_CLOSE будет отправлено сообщение WM_SYSCOMMAND с wParam, равным SC_CLOSE.

Пример кода

procedure TForm.FormMouseMove(Sender: TObject; Shift: TShiftState; MousePos: TPoint);
var
  hCursor: HCURSOR;
  hWnd: HWND;
  nHit: LRESULT;
begin
  hWnd := Handle;
  nHit := SendMessage(hWnd, WM_NCHITTEST, 0, MousePos);
  if nHit = HTCLOSE then
    // Действия при наведении на кнопку закрытия
end;

В этом примере кода мы перехватываем событие FormMouseMove и проверяем, находится ли курсор над кнопкой закрытия, используя функцию WM_NCHITTEST.

Заключение

Обнаружение наведения курсора на кнопку закрытия в приложениях на Delphi может быть полезно для различных сценариев, например, для изменения поведения приложения перед закрытием или для отображения дополнительной информации. Важно помнить, что для полной картины необходимо обрабатывать не только наведение курсора, но и сами действия пользователя по закрытию формы.

Создано по материалам из источника по ссылке.

Необходимо реализовать функционал в приложении на Delphi для обнаружения наведения курсора мыши на кнопку закрытия в неактивной форме.

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

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

:: Главная :: Формы ::