popup menu ba راست کلیک

[ali643]

سلام

یک popup menu داریم که به خاصیت popmenu یک button بایندش می کنیم
حالا این button می تونه در هر x,y در فرم باشه فعلا popup menu با راست کلیک باز می شه حالا می خوایم با کلیک چپ باز بشه بر روی همون button مثل وقتی که با راست کلیک باز میشد


مرسی

[vcldeveloper]

procedure TForm1.Button1Click(Sender: TObject);

var

  P : TPoint;

begin

  GetCursorPos(P);

  TButton(Sender).PopupMenu.Popup(P.X, P.Y);

end;