PopupMenu响应鼠标左键

OnMouseUp

1 var
2   aPoint: TPoint;
3 begin
4   if Button = mbLeft then begin
5     GetCursorPos(aPoint);
6     PopupMenu.Popup(aPoint.x , aPoint.y);
7   end;
8 end;

　　

posted on 2011-07-21 22:41  solokey  阅读(266)  评论(0)  编辑  收藏  举报