Tray Icon verschwindet wenn man mit der Mouse drüberfährt?

[schwa226]

Hi,

bin am verzweifeln!

Hab ein Programm geschrieben, dass beim Starten mit Application.ShowMainForm := False; verborgen wird.
Es wird dann mit

Code:

  with TrayIconData do
  begin
    cbSize := SizeOf(TrayIconData);
    Wnd := Handle;
    uID := 0;
    uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    uCallbackMessage := WM_ICONTRAY;
    hIcon := Application.Icon.Handle;
    StrPCopy(szTip, Application.Title);
  end;

  Shell_NotifyIcon(NIM_ADD, @TrayIconData);

der Tray Icon gemacht. Vor noch ca. 1 Stunde hat man mit einem Left-Klick auf das Icon die Form wieder anzeigen lassen können.

Nun habe ich aber irgendwas gemacht, dass nun verursacht das wenn man mit der Mous über das Icon fährt das dieses verschwindet. Die Application läuft aber weiter!?

Hab es dann noch auf einem anderen PC mit einer etwas älteren Version (ca- 1h älter) versucht. Auch da verschindet der TRay Icon.

Wie habe ich das nun wieder geschafft?

Hat da jemand eine Idee?

EDIT:
Hab's gerade nochmal mit einem neuen Project versucht. Da bleibt der Icon in der Tray-Leiste. Wenn ich denn Code vom alten Projekt in das neue komplett kopiere ist das Verschwinden des Icons wieder da! Es muss also etwas im Code sein das das verursacht!

[turboPASCAL]

Ich würde die raten, verende doch eine Komponente zB. CoolTrayIcon.

Da wir hier deinen Quelltext nicht kennen, wissen wir auch nicht was du dort machst zB. ob
das Erstellen des T.-Icons korreckt etc. ist.

[schwa226]

Vielen Dank für den Tipp! Werd ich mir noch ansehen!

Nach ein paar Stunden schlaf habe ich nochmal alle Prozeduren per Hand in ein neues Projekt kopiert. Nun geht's wieder!

Keine Ahnung wo ich da etwas verwurschtelt habe!