单击一个button，想得到右击的效果

Question

button已经和popmenu关联起来了，现在想左键点一下，也能出来右键菜单，而且位置要正确，不能让菜单跑哪里去都不知道

Answer 1

在ｏｎｍｏｕｓｅｄｏｗｎ里
popmenu1.popup(x,y)

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  popupmenu1.Popup(0,0);
end;

Answer 3

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
    popmenu1.popup(x,y);
end;

Answer 4

procedure TForm1.buttonClick(Sender: TObject);
begin
popmenu.Popup(Left + button.Left + button.Width ,Top + button.Top + button.Height );
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var p: TPoint;
begin
 GetCursorPos(p);
 PopupMenu1.Popup(p.x, p.y);
end;

Answer 6

關與button的右鍵事件總於找到答案了,哈哈