德尔福“托盘” 图标 (NotifyIcon) 上下文菜单在单击外部时不会消失

Question

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

据推测，它是按照 KB135788 - PRB：通知图标菜单无法正常工作 (存档)。

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

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

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;

有效！

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

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