Kurze Unit zum Verwalten des Trayicons

[ichbins]

Hallo,

ich hab hier mal eine Unit zum Verwalten des Trayicons geschrieben.

Enthaltene Funktionen:

Delphi-Quellcode:

Anzeigen/Verstecken     (Beim Beenden wird das Icon automatisch entfernt)
Icon ändern             (Standard = application.icon)
Bubblemessage ausgebem  (Parameter: Titel, Text, Timeout, Typ (msinfo,mswarning,mserror), bubble anzeigen obwohl kein Icon:boolean)

die Unit ist nonVCL-kompatibel. Sie verwendet

Delphi-Quellcode:

uses
  shellapi, windows, classes;

Beigefügt ist eine kurze Beispielanwendung (D7Pers), die die Unitfunktionen umsetzt.

[Luckie]

Wozu Classes? Die Unit fällt nach meiner Definition nicht mehr unter nonVCL, weil sie die Exe um ziemlich aufbläht.

[ichbins]

die dcu hat nur 3 KB... die classes brauch ich für allocate/dellocate hwnd. wenn du eine Alternative hast...


wie kann ich die classes denn vermeiden?

[Rastaman]

Ich hab zwar in der Hilfe nix über AllocateHwnd gefunden, und kenn die Funktion auch nicht, aber warum gibst du der
Funktion nicht einfach noch einen HWND Parameter, den man dann mit übergeben muss

[SirThornberry]

anstelle des Allocate und DeAllocate musst du dann wohl mit CreateWindow arbeiten.
@Rastaman: Das Handle allein bringt nix, denn das Handle übergibt man für die Callback messages. Um die Callbackmessages aber abfangen zu können muss man auch entsprechende Methoden in der WindowProc des entsprechenden Handles haben bzw. eine methode in der Klasse zu der das Handle gehört.