Delphi“托盘”图标（NotifyIcon）上下文菜单在外部单击时不会消失

Question

我试图在右键单击我的通知图标时显示一个弹出菜单，效果很好；但我希望当用户在该菜单之外单击时菜单消失。

这应该是按照KB135788 - PRB: Menus for Notification Icons Do Not Work Correctly 设计的(archive)。

但我所知道的没有像样的应用程序的行为。我尝试使用弹出菜单的句柄调用 SetForegroundWindow 无济于事。我确信可以解决这个问题，就像我几年前所做的那样，但不记得如何了。

有人知道如何实现预期的行为吗？

Answer 1

我找到了解决办法！

我在打电话 SetForegroundWindow(PopupMenu1.Handle);

这不起作用，但在 OnPopup 事件处理程序中将其更改为

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  // Hack to fix the "by design" behaviour of popups from notification area icons. 
  // See: http://support.microsoft.com/kb/135788
  BringToFront();
end;

有效！

显然，如果在调用它时表单是可见的，那么您的应用程序将跳到最前面，但如果它是隐藏的（就像我的那样），那么它就会工作。

不过，我很想知道是否有一种方法可以使菜单正常工作而不会跳到最前面。