Question

Delphi 右键菜单的问题PopupMenu

我给一个普通按钮添加了PopupMenu右键菜单，如何实现我左键单击按钮弹出右键菜单，而不是右键才能弹出菜单？

换句话，如何在按钮的单击事件中实现该按钮的右键动作？ 请指导 谢谢！！！！

Answer 1

理论上来说 直接设置PopupMenu
的trackbutton就可以

但是好像是不想的

你再 你需要弹出的菜单的控件做MouseDown事件

例如下面我是做德form的MouseDown事件：

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  P:TPoint;
begin
  GetCursorPos(P);
  if Button=mbleft then
    pm1.Popup(P.X,P.Y);

end;