哪位仁兄提供 左键响应popupmenu的资料!

Question

哪位仁兄提供  左键响应popupmenu的资料!

Answer 1

var
   p:TPoint;
begin
     GetCursorPos(p);
     Pop.Popup(P.x,P.y);

Answer 2

同意楼上的
写在某个OBJECT的MOUSEDOWN 或 mouseup事件中

Answer 3

procedure TFormMain.Button1Click(Sender: TObject);
begin
   popupmenu1.Popup(button1.ClientOrigin.X,button1.ClientOrigin.Y);
end;
我给你的这个代码是实现左击按钮，弹出菜单，就像开始菜单那样。

Answer 4

onclick()var
   P: TPoint;
begin
     GetCursorPos(P);
     PopMenu.Popup(P.x,P.y);
end;