Delphi 左键代替右键:

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