关于PopupMenu很菜的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  mousepos: Tpoint;
begin    getcursorpos(mousepos);
    popupmenu1.Popup(mousepos.x, mousepos.y);end;

Answer 1

转载！：：
procedure TForm1.Button1Click(Sender: TObject);
var
  mousepos: Tpoint;
begin    getcursorpos(mousepos);
    popupmenu1.Popup(mousepos.x, mousepos.y);end;

Answer 2

popupmenu1.Popup(X,Y);这句是最重要的。在（X，Y）指定位置弹出菜单

Answer 3

luoweicaisd(笑三少)  好有权威性啊，感觉应该很好吧！

Answer 4

其实如果将按钮改为SpeedButton的话，只要设置它的PopupMenu属性即可轻松实现该功能，不用手工再添加任何代码。很简单哦！