请问下,托盘图标的鼠标事件是怎么触发的??? ( 积分: 100 )

已经写好了一个托盘图标,就不知道鼠标事件是如何触发的..请大虾门帮帮小弟..

响应&nbsp;WM_ICONTRAY&nbsp;事件...<br>procedure&nbsp;WMIconTray(var&nbsp;Msg:&nbsp;TMessage);&nbsp;message&nbsp;WM_ICONTRAY;<br>begin<br>&nbsp;&nbsp;case&nbsp;Msg.lParam&nbsp;of<br>&nbsp;&nbsp;&nbsp;&nbsp;WM_LBUTTONUP:;//左键弹起<br>&nbsp;&nbsp;&nbsp;&nbsp;WM_RBUTTONUP:;//右键弹起<br>&nbsp;&nbsp;&nbsp;&nbsp;WM_LBUTTONDBLCLK:;//左键双击<br>&nbsp;&nbsp;&nbsp;&nbsp;WM_RBUTTONDBLCLK:;//右键双击<br>&nbsp;&nbsp;end;<br>end;<br>把上面这个过程安在托盘&nbsp;Form&nbsp;的&nbsp;private&nbsp;部分。另外需要告诫的是，一般的托盘程序不要响应鼠标的右键按下消息（WM_RBUTTONDOWN），那样经常会误导使用者调出&nbsp;Windows&nbsp;的任务栏属性，使你的程序用起来就像一个高中生编的；而事实上，很多喜欢“响应”鼠标右键按下消息的程序，确实是高中生编的...

我是DLEPHI7.0的,怎么找不到这个消息事件??程序无法运行??谢谢你的回答..

Const<br>&nbsp;&nbsp;MouseMsg&nbsp;=&nbsp;WM_USER+1;<br><br>type<br>&nbsp;&nbsp;TMainServer&nbsp;=&nbsp;class(TForm)<br>&nbsp;&nbsp;.......<br>&nbsp;&nbsp;private<br>&nbsp;&nbsp;public<br>&nbsp;&nbsp;&nbsp;&nbsp;procedure&nbsp;Mousemessage(var&nbsp;Message:&nbsp;TMessage);&nbsp;Message&nbsp;MouseMsg;<br>&nbsp;&nbsp;end;<br><br>procedure&nbsp;TMainServer.Mousemessage(var&nbsp;Message:&nbsp;TMessage);<br>var<br>&nbsp;&nbsp;MouseEpt:&nbsp;TPoint;<br>begin<br>&nbsp;&nbsp;Inherited;<br>&nbsp;&nbsp;if&nbsp;Message.LParam=&nbsp;WM_RBUTTONUP&nbsp;then<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;GetCursorpos(MouseEpt);<br>&nbsp;&nbsp;&nbsp;&nbsp;PopupMenu1.Popup(MouseEpt.X,MouseEpt.Y);<br>&nbsp;&nbsp;end;&nbsp;<br>&nbsp;&nbsp;Message.Result:=0;<br>end;

程序运行没问题,但无法进行鼠标事件...谢谢回答..

&nbsp;

To&nbsp;zengguocai:<br>不好意思，忘了把用法告诉你了...<br>WM_ICONTRAY&nbsp;是个自定义消息：<br>uses&nbsp;ShellAPI;<br>WM_ICONTRAY&nbsp;=&nbsp;WM_USER&nbsp;+&nbsp;1;<br>另外在&nbsp;Form&nbsp;初始化的时候需要做一些工作，将托盘结构与&nbsp;Form&nbsp;关联：<br>private<br>&nbsp;&nbsp;...<br>&nbsp;&nbsp;FNotifyIconData:&nbsp;TNotifyIconData;<br>&nbsp;&nbsp;...<br>procedure&nbsp;TMainForm.FormCreate(...);<br>begin<br>&nbsp;&nbsp;...<br>&nbsp;&nbsp;with&nbsp;FNotifyIconData&nbsp;do<br>&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;cbSize&nbsp;:=&nbsp;SizeOf(TNotifyIconData);<br>&nbsp;&nbsp;&nbsp;&nbsp;Wnd&nbsp;:=&nbsp;Self.Handle;<br>&nbsp;&nbsp;&nbsp;&nbsp;uID&nbsp;:=&nbsp;1;<br>&nbsp;&nbsp;&nbsp;&nbsp;uFlags&nbsp;:=&nbsp;NIF_MESSAGE&nbsp;or&nbsp;NIF_ICON&nbsp;or&nbsp;NIF_TIP;<br>&nbsp;&nbsp;&nbsp;&nbsp;uCallbackMessage&nbsp;:=&nbsp;WM_ICONTRAY;<br>&nbsp;&nbsp;&nbsp;&nbsp;hIcon&nbsp;:=&nbsp;Application.Icon.Handle;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;StrCopy(@szTip,&nbsp;'来自托盘的提示');<br>&nbsp;&nbsp;end;<br>&nbsp;&nbsp;Shell_NotifyIcon(NIM_ADD,&nbsp;@FNotifyIconData);<br>&nbsp;&nbsp;...<br>end;<br><br>procedure&nbsp;TMainForm.FormDestroy(...)<br>begin<br>&nbsp;&nbsp;Shell_NotifyIcon(NIM_DELETE,&nbsp;@FNotifyIconData);<br>end;

TO&nbsp;vvyang&nbsp;谢谢,OK了...<br>非常谢谢你们的回答....小弟感激不尽,谢谢你们!!!.

多人接受答案了。