Thema: Delphi Hint in der TNA

Einzelnen Beitrag anzeigen

Alexander

Registriert seit: 28. Aug 2002
Ort: Oldenburg
3.513 Beiträge
 
Turbo Delphi für .NET
 
#3
  Alt 4. Jan 2003, 21:28
nein ist keine Komponente, ist eine Funktion von mir. Ich wollte sie noch anhängen, dann habe ich es wohl vergessen
Delphi-Quellcode:
procedure TaskBarAddIcon;
var tnid : TNOTIFYICONDATA ;
begin
    tnid.cbSize := sizeof(TNOTIFYICONDATA);
    tnid.Wnd := Form1.handle;
    tnid.uID := 1;
    tnid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    tnid.uCallbackMessage := WM_TASKBAREVENT;
    tnid.hIcon := form1.image2.picture.icon.handle;
    strcopy(tnid.szTip,'MailWatcher V 1.0'+#13+' e-Mails auf dem Server'); // Hint
    Shell_NotifyIcon(NIM_ADD, @tnid);
end;
Ich hoffe ihr könnt mir helfen
Alexander
  Mit Zitat antworten Zitat