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

利用 SetForeGroundWindw 參考: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=44686 -- QBQ: 我能做什麼？

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