Как закрыть всплывающее меню в System Tray когда оно теряет фокус

Delphi , Рабочий стол , TrayBar

Иногда, при потере фокуса, всплывающее меню в System Tray при потере фокуса не закрывается. Поэтому, при обработке сообщений для всплывающего меню необходимо поместить окно на передний план и послать ему сообщение WM_NULL.

procedure TForm1.WndProc(var Msg: TMessage);
var
  p: TPoint;
begin
  case Msg.Msg of
    WM_USER + 1:
      case Msg.lParam of
        WM_RBUTTONDOWN:
          begin
            SetForegroundWindow(Handle);
            GetCursorPos(p);
            PopupMenu1.Popup(p.x, p.y);
            PostMessage(Handle, WM_NULL, 0, 0);
          end;
      end;
  end;
  inherited;
end;

Here's the translation of the provided text into Russian:

Код, который вы предоставили, - это пользовательский процедура окна для формы в Delphi. Она обрабатывает сообщение WM_USER + 1, которое, вероятно, генерируется правым кликом мыши на иконке системной панели. Цель этого кода - отобразить контекстное меню при правом клике мыши.

Проблема с вашим кодом в том, что он не правильно закрывает контекстное меню, когда оно теряет фокус. Для решения этой проблемы можно добавить обработчик сообщения WM_KILLFOCUS к процедуре окна формы и вызвать метод Close() для контекстного меню в этом обработчике.

Вот обновленная версия вашего кода:

procedure TForm1.WndProc(var Msg: TMessage);
var
  p: TPoint;
begin
  case Msg.Msg of
    WM_USER + 1:
      case Msg.lParam of
        WM_RBUTTONDOWN:
          begin
            SetForegroundWindow(Handle);
            GetCursorPos(p);
            PopupMenu1.Popup(p.x, p.y);
            PostMessage(Handle, WM_NULL, 0, 0);
          end;
  end;

  if (Msg.Msg = WM_KILLFOCUS) then
    PopupMenu1.Close();

  inherited;
end;

В этом обновленном коде я добавил проверку на WM_KILLFOCUS в процедуре окна. Когда получается сообщение WM_KILLFOCUS, это означает, что форма потеряла фокус, поэтому мы закрываем контекстное меню с помощью его метода Close().

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

Альтернативным решением является использование события OnCloseUp контекстного меню для его закрытия при потере фокуса. Вот пример использования этого подхода:

procedure TForm1.PopupMenu1CloseUp(Sender: TObject);
begin
  Close();
end;

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

Когда всплывающее меню в System Tray теряет фокус, можно закрыть его, поместив окно на передний план и отправив в него сообщение WM_NULL.

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

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

:: Главная :: TrayBar ::