شبیه سازی کلیک راست هنگام کلیک چپ

[mbshareat]

سلام
من میخوام کنار ساعت یه TrayIcon بذارم که PopupMenu داشته باشه و با کلیک چپ هم منو رو باز کنه.مثل LaunchOnFlay .
اما پیشفرض TrayIcon اینه که فقط با کلیک راست کار کنه.
حتی اگر خودم با کد بخوام منو رو نشون بدم محل دقیق نیست و وقتی خارج منو مثلا روی نوار وظیفه کلیک کنم، منو هنوز مخفی نمیشه.
کسی راهی برام سراغ داره که کلیک چپ هم مثل کلیک راست عمل کنه؟

[mbshareat]

ببخشید فکر نمی کردم با جستجو زود جواب رو پیدا کنم
https://www.swissdelphicenter.ch/en/showcode.php?id=360

اما مشکلش اینه که یه وقتهایی روی نوار وظیف کلیک کنم منو رو نمی بنده و یه وقتهایی انگار روی نوار وظیفه کلیک راست کردم منوی مربوطه رو هم میاره.

[mbshareat]

procedure TForm1.TrayIcon1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);

begin

  if Button=mbLeft then

  begin

    mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);

    mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);

  end;

end;

علاوه بر اینکه فهمیدم GetCursorPos هم داریم!

فقط یه سوال برام موند:
trackbutton به چه درد می خوره؟