如果使用的是线程技术就需要做个线程内消息处理,然后再消息处理函数内弹出菜单，如果不是的话就很简单了，有很多弹出菜单的demo，你可以自己查一下
比如
procedure IconOnClick(var message:TMessage);
message WM_USER;
然后调用
procedure TForm1.IconOnClick( var message: Tmessage);
var p : TPoint;
begin
if (message.lParam = WM_LBUTTONDOWN) then
begin
ShowWindow(Handle, SW_SHOW );
end;
if (message.lParam = WM_RBUTTONDOWN) then
begin
GetCursorPos(p);
popupmenu1.Popup( p.x ,p.y );
end;
end;
