Programm in System Tray

[devnull]

Hi,
ich hab mein Programm mit dieser Prozedur in den SystemTray befördert.

Delphi-Quellcode:

       Form1.IconData.cbSize := SizeOf(Form1.IconData);
       Form1.IconData.Wnd := Handle;
       Form1.IconData.uID := 100;
       Form1.IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
       Form1.IconData.uCallBackMessage := WM_USER + 20;
       Form1.IconData.hIcon := Application.Icon.Handle;
       Form1.IconData.szTip := 'Dies ist ein TNA-Icon';

       Shell_NotifyIcon(NIM_ADD, @Form1.IconData);

Wenn ich jetzt aber mit der Maus über das Symbol im Tray fahre, verschwindet es auf einmal !???

Was mach ich falsch?


devnull

[Luckie]

Schon mal mit dem Code aus der Code-Library verglichen?

[devnull]

Hi,

den Code von dir grad vor mir; weis aber immer noch net, was du meinen könntest ???


devnull

[Luckie]

Du sollst einfach mal vergleichen, weil in dem kurzen Codefetzen von dir, sehe ich auf Anhieb keinen Fehler.

[Alexander]

Sonst such hier mal im Forum, da solltest du ordentlich was finden.
Und dann halt wieder vergleichen.

PS: Sicher das du das selber nciht wieder verschwinden lässt?

PS: Wenn es gar nicht geht, kannst du dir auch die Komponente CoolTray oder so ähnlich runterladen.
Allerdings finde ich man sollte (Fremd-) Komponenten soweit wie möglich vermeiden, jedenfalls wenn man es allein genau so gut hinbekommt...