TNA MouseOver

[devnull]

Ich hab vor dem Aufruf einfach die Form 'unsichtbar' gemacht !

Delphi-Quellcode:

          Form1.Visible := false;
          Form1.FormStyle := fsNormal;
          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 := 'Anwendung';
          Shell_NotifyIcon(NIM_ADD, @Form1.IconData);

Ich hoffe das reicht.


devnull