PopUpMenu durch Klick auf TrayIcon anzeigen ?

[thomas2009]

Hallo

ich rufe meine PopUpmenu durch ein rechten Klick auf TrayIcon auf
Ist es auch möglich die PopUpMenu durch Klick aufzurufen ?
Es ist zwar nicht nötig aber mansche Anwender klicken nicht mit der rechten Maustaste auf dem Icon um Menu zu aufzurufen sondern die Klicken einfach drauf !
darum möchte ich die Sache vereinfachen

[omata]

Delphi-Quellcode:

private 
  procedure TaskbarEvent(var Msg: TMessage); Message WM_TASKABAREVENT;

:
:

procedure TFMain.TaskbarEvent(var Msg: TMessage);
var Point:TPoint;
begin
  if Msg.LParam = WM_LBUTTONUP then begin
    // Linksklick...
    GetCursorPos(Point);
    PopupMenu.Popup(Point.x, Point.y);
  end;
end;

[thomas2009]

es hat geklappt mit dem code Danke

Delphi-Quellcode:

PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);