TrayIcon的问题！！！(50分)

我的trayicon中弹出菜单后，<br>将鼠标移到屏幕的其他地方（“托盘”程序响应事件的区域之外）单击左键，<br>“托盘”的弹出菜单并不会马上消失，这与其他托盘程序不相符合，随能帮<br>我解决？<br><br>代码如下<br>procedure TfrmMain.WMTTRAYICON(var message: Tmessage);<br>Var<br> Mousepos: TPoint;<br>begin<br>&nbsp; Getcursorpos(MousePos);<br>&nbsp; Self.BringToFront;<br>&nbsp; SetForegroundWindow(Handle);<br> Case message.LParam of<br>&nbsp; WM_RBUTTONDOWN:<br> mnuTrayPop.Popup(MousePos.X,MousePos.Y);<br>&nbsp; &nbsp; //PopupEx(Self, mnuTrayPop, MousePos.x, MousePos.y);(<br>&nbsp; WM_LBUTTONDBLCLK:<br>&nbsp; &nbsp; frmShell.Show;<br>&nbsp; &nbsp;end;<br>end;

[]

呵呵,前阵子正好答了一个,我就不重复贴了,没意义.你看看,记得给分哟,保证能行的.<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=714416

to楼上的：<br>我照着你先前说的方法作了，但是还是没用，我点点桌面，怎么还是忧？？？？？<br>

CoolTrayIcon &nbsp; v2.1.4 <br>作者:Troels Jakobsen. 自动将Form缩小为TrayIcon,可设置MinimizeToTrayIcon为True,<br>则Form最小化时不显示在任务栏上。个人认为较RxLib中的RxTrayIcon好用，<br>而且还有源代码哦！ <br>http://www.delphibyte.com/download/softdown.php?softid=349&amp;url=http://61.132.118.165/soft/delphi/Delphi3/TTRAYICON.ZIP<br><br>建议去看看源代码！<br>

我已经解决了，自己写了一个控件就可以用的拉，奇怪，怎么不能用form的handle呢？

RXLIB中有个控件，很好用的！<br>可以去试试

多人接受答案了。