TrayIcon (links neben der Uhr): Position rausfinden

[Helmi]

Hallo,

weiss jemand, wie man von einem TrayIcon die Positon (X, Y) rausfinden kann?

mfg
Helmi

[gekmihesg]

kommt drauf an...
wie hast du das icon denn erzeugt?

[Helmi]

so:

Code:

  //Erzeugen des SysTrayIcon
  IconData.cbSize           := SizeOf(TNotifyIconData);
  IconData.Wnd              := AllocateHWnd(HandleMessage);
  IconData.uId              := IconID;
  IconData.uFlags           := NIF_ICON + NIF_MESSAGE + NIF_TIP;
  IconData.uCallbackMessage := WM_TRAYNOTIFY;

[Helmi]

na damit hier keiner nen Herzinfarkt bekommt (@ Matze) - hier mal was zum Thema:

folgenden Code benutz ich um das Icon zu erstellen:

Code:

  private
    { Private-Deklarationen }
    IconData              : TNotifyIconData;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //Erzeugen des SysTrayIcon
  IconData.cbSize           := SizeOf(TNotifyIconData);
  IconData.Wnd              := AllocateHWnd(HandleMessage);
  IconData.uId              := IconID;
  IconData.uFlags           := NIF_ICON + NIF_MESSAGE + NIF_TIP;
  IconData.uCallbackMessage := WM_USER + 1024;
end;

Ich müsste halt die X und Y-Position rausfinden können, des TrayIcons.
Problem wird sein, dass das auf allen gängigen Win-Versionen funktionieren muss.

mfg
Helmi

[sakura]

^^ push

Nein, im Ernst, ich habe mal aufgeräumt, damit wir hier den Überblick wahren

......

P.S.: Viel Erfolg bei der Lösung