Delphi 左键代替右键

Delphi 左键代替右键：

var
  Pt: TPoint;
begin
  GetCursorPos(Pt);
  PopupMenu1.Popup(Pt.X, Pt.Y);
end;

　　

来源：https://www.cnblogs.com/guorongtao/p/11939680.html