TNA MouseOver

[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');