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