ICONEVENT = WM_USER + 1;<br><br>procedure IconOnClick(var message: TMessage); message ICONEVENT;<br><br>procedure TForm1.IconOnClick(var message: TMessage);<br>var<br> p: TPoint;<br>begin<br> if (message.lParam = WM_LBUTTONDOWN) or (message.lParam = WM_RBUTTONDOWN) then<br> begin<br> GetCursorPos(p);<br> PopupMenu1.Popup(p.x ,p.y);<br> end;<br>end;