怎样在鼠标点其它地方时,TPopupMenu 自动关闭?

Question

我在TrayIcon中加了个 TPopupMenu ,可点击 TrayIcon 弹出 TPopupMenu 后
如果我不想点选菜单项,它就会一起打开着。
  请问怎样才能在我点其它地方时 自动关闭?

Answer 1

var
  MousePoint: TPoint; //鼠标点击位置
begin
  GetCursorPos(MousePoint);//获取鼠标位置
  SetForegroundWindow(Handle);
  PopupRM.Popup(MousePoint.x, MousePoint.y); //弹出式菜单
  PostMessage(Handle,WM_NULL, 0, 0 );end;

Answer 2

我也碰到类似问题，如果TPopupMenu换成一个非模式窗口呢？
当然代码还得在“TPopupMenu换成一个非模式窗口”这边写。

Answer 3

//我用下面的语句测试没有问题！
begin
  PopupRM.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

Answer 4

我也碰到类似问题，如果TPopupMenu换成一个非模式窗口呢？
当然代码还得在“TPopupMenu换成一个非模式窗口”这边写。