Window Message kommt nicht an (TrayIcon)

[moelski]

Moin !

Ich schreibe mir gerade basierend auf dem hier:
http://www.delphipraxis.net/internal_redirect.php?t=420
eine Klasse in einer eigenen Unit mit der ich ein Tray erzeugen und Balloonhints darstellen kann.

Klappt auch soweit ganz gut was das Erstellen und Anzeigen angeht.

Nun wollte ich auf die Windows Botschaften reagieren um z.B. die Mausklicks auf das Tray auswerten zu können.
Dazu hat meine Unit folgende Zeile:

Delphi-Quellcode:

Const
  WM_TNAMSG = WM_USER + 10;

So und im Create wird das auch übergeben:

Delphi-Quellcode:

constructor TTrayDS.Create(Handle : HWND);
begin
  NID.cbSize           := SizeOf(DS_TNotifyIconData);
  NID.uID              := 13082009;
  NID.uFlags           := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  NID.uCallbackMessage := WM_TNAMSG;   // <--------
  NID.hIcon            := 0;
  NID.szTip            := 'Test';
  NID.Wnd              := Handle;
  NID.hIcon            := LoadIcon(0, IDI_INFORMATION);

  // TrayIcon anzeigen
  Shell_NotifyIcon(NIM_ADD, @NID);
end;

Wie gesagt das steht alles in meiner eigenen Unit. In der Unit des Hauptprogs habe ich dann folgende Zeile:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
...
  private
    { Private-Deklarationen }
    procedure TaskbarEvent(var Msg: TMessage); Message WM_TNAMSG;
  public

Und dazu die Auswertung:

Delphi-Quellcode:

procedure TForm1.TaskbarEvent(var Msg: TMessage);
var Point : TPoint;
begin
  { Eventhandler-Beispiele von Robert Fischer: }
  case Msg.LParam of
    WM_LBUTTONUP:
      begin
        //Mach etwas nach einem Linksklick...
      end;
  end;
end;

Aber TaskbarEvent wird niemals nicht aufgerufen.
Die Frage wäre nun - Warum !?

Stellt es ein Problem dar dass das TrayIcon und die Balloons aus der Klasse heraus erstellt werden und ich die Windows Messages in meinem Programm abfange? Aber eigentlich übergebe ich ja das Fenster Handle mit, also sollte das doch klappen!?

Hat jemand ne Idee?