我指的是点击托盘图标弹出的菜单，
procedure TFrmMinder.TrayIconEvent(var msg: TMessage);
var
MousePos: TPoint;
begin
SetActiveWindow(Handle); //右键:取消PopupMenu的操作，当鼠标移开后点左键，PopupMenu自动消失
SetForeGroundWindow(Handle);
PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
case msg.lParam of
WM_RButtonDown: //右键弹出PopupMenu
begin
GetCursorPos(MousePos);
Pmu_TrayIcon.Popup(MousePos.x, MousePos.y);
end;
//WM_LButtonDown: ; //左键
WM_LButtonDblClk:
FrmMinder.Show; //双击
else
inherited; //继承其他消息处理
end;
end;
我现在要完成的是：在弹出的PopupMenu上点左键执行事件，点右键不执行事件。
在PopupMenu菜单上我写了三个事件，比如说：showmessage（‘OK’）；
