TNA MouseOver

[devnull]

Hi,

ich hab aus einem anderen Thread "einfach" den Source zur Minimierung in die Tray-Leiste kopiert.
Tja, das Minimieren geht, aber sobald ich mit der Maus über mein Symbol fahre, verschwindet dieses auf 'wundersame' Weise !

Kann mir da einer helfen ???


devnull

[Chewie]

Das passiert normalerweise, wenn das Icon registriert, aber nie wieder freigegeben wird. Durch das Drüberfahren mit der Maus wird Windows dazu gebracht, nachzukucken, ob das Fenster, das das Icon registriert hat, noch existiert. Ist das nicht der Fall, wird das Icon entfernt.
Existiert das Fenster zu dem Zeitpunkt noch? Wenn ja, dann zeig mal Code, vielleicht sieht man so, worans liegt.

[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

[himitsu]

Wie gesagt, hab's schon lange nicht mehr genutzt.

Aber in meiner alten Demo wird das so gemacht:

Delphi-Quellcode:

Procedure TUhrFormular.erstelleIcon(I: TIcon; ID: Integer; Hint: String);
  Var D: TNotifyIconData;
  Begin
    D.cbSize := SizeOf(D);
    D.Wnd := Handle;
    D.uID := ID;
    D.uCallbackMessage := MSG_IconCallBack;
    D.HIcon := I.Handle;
    StrCopy(D.szTip, PChar(Hint));
    D.uFlags := NIF_Message or NIF_Icon or NIF_Tip;
    Shell_NotifyIcon(NIM_Add, @D);
  End;


IconAus := TIcon.Create;  IconEin.LoadFromFile('System_TaskleisteDoppelstart_IconAus.ico');
erstelleIcon(IconAus, 0, 'Alarm einschalten');

[devnull]

danke himitsu, habs dank deinem beispiel auch endlich geschafft, ein icon in die taskleiste zu bringen, das nich gleich wieder verschwindet


devnull