Delphi 左键代替右键：
var Pt: TPoint; begin GetCursorPos(Pt); PopupMenu1.Popup(Pt.X, Pt.Y); end;
Delphi 左键代替右键
原文：https://www.cnblogs.com/guorongtao/p/11939680.html
