BUTTON1事件，按下时弹出popupmenu菜单？？

Question

同上下班

Answer 1

在BUTTON1事件，按下时弹出popupmenu菜单？？

Answer 2

先弄一个POPUPMENU，然后创建button1的onclick事件。
再popupmenu（）

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  PT:TPoint;
begin
  GetCursorPos(PT);
  PopupMenu1.Popup(PT.X,PT.Y);
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
popupmenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;