我在一个按钮上按右键，让popupmenu弹出，请问怎么设置它弹出的位置？

Question

getcursorpos(pt);
     popupmenu1.Popup(pt.x,pt.y);

Answer 1

其实不用这样的，你直接在button的属性上直接设置popupmeun属性即可，谢谢了，给点分吧

Answer 2

var
  pt:Tpoint;
begin
      pt.X:=x;
      pt.Y:=y;
      pt:=clienttoscreen(pt);
      popmenu.Popup(pt.X,pt.y);

Answer 3

procedure TForm1.someobjectClick(Sender: TObject);
var
  P : TPoint;
begin
  GetCursorPos(P);
  PopupMenu1.Popup(P.x,P.y);  //放入一个弹出式菜单控件并设置
end;