Systray-Icon in eigener Klasse

[mika]

Hallo erstmal an alle,

ich probiere grad für eine Applikation eine Unit mit einer Klasse zu erstellen damit
ich einfach ein Icon im Systray plazieren kann und ein Menü bei Rechtsklick darauf
anzuzeigen. Das mit dem Icon klappt auch alles ganz gut aber ich bekomme die
CallbackMessage nicht mit -> will sagen bei Mausklick wird meine Prozedur nicht
aufgerufen

Folgendes zu dem Thema hab ich mir angesehen aber hat mir leider nciht weitergeholfen:

• DP Thread
• DP Thread
• DP Thread

Hier mal meine Unit:

Delphi-Quellcode:

(* *****************************************************************************
  Author := Mika
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Unit mit Methoden um ein Icon in der Trayleiste zu plazieren und
  auf dessen Ereignisse zu achten.
***************************************************************************** *)
unit uSystray;

interface

uses ShellApi, Windows, Messages, Forms;

Type
  TSystrayIcon = Class
    Trayicon: TNotifyIconData;

    Constructor newCreate(IconHint: String);
    Destructor newDestroy;

    private
      Procedure onTrayiconMessage(Var Msg: TMsg); message WM_USER;
      Procedure AddIconToSystray(TrayiconDescription: String);
      Procedure RemoveIconFromSystray;
  end;

implementation

Constructor TSystrayIcon.newCreate(IconHint: String);
Begin
  Inherited Create;
  AddIconToSystray(IconHint);
End;

Destructor TSystrayIcon.newDestroy;
Begin
  RemoveIconFromSystray;
  Inherited Destroy;
End;

(* *****************************************************************************
  Author := Mika
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Fügt dem Systray ein neues Icon hinzu das auf Mausklicks reagiert um
  ein Menü anzuzeigen.
***************************************************************************** *)
Procedure TSystrayIcon.AddIconToSystray(TrayiconDescription: String);
begin
  Fillchar(Trayicon.szTip, SizeOf(Trayicon.szTip), 0);

  Move(TrayiconDescription[1], Trayicon.szTip, Length(TrayiconDescription));
  Trayicon.cbSize := SizeOf(Trayicon);
  Trayicon.Wnd := Application.Handle;
  Trayicon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  Trayicon.hIcon := Application.Icon.Handle;
  Trayicon.uID := 27787552;
  Trayicon.uCallbackMessage := WM_USER;

  Shell_NotifyIcon(NIM_DELETE, @Trayicon);
  Shell_NotifyIcon(NIM_ADD, @Trayicon);
end;

(* *****************************************************************************
  Author := Mika
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Entfernt das Trayicon aus dem Systray.
***************************************************************************** *)
Procedure TSystrayIcon.RemoveIconFromSystray;
Begin
  Shell_NotifyIcon(NIM_DELETE, @Trayicon);
End;

(* *****************************************************************************
  Author := Mika
  Datum der Erstellung := 07-06-2005
  Datum der letzten Änderung := 07-06-2005

  Reagiiert auf Mausklicks auf das Trayicon und zeigt ein
  Menü an bei Rechtsklick
***************************************************************************** *)
Procedure TSystrayIcon.onTrayiconMessage(Var Msg: TMsg);
Var
  Point: Tpoint;

Begin
  GetCursorPos(Point);
  if (Msg.wParam = WM_LBUTTONDOWN) then
  begin

  end else
  if (Msg.wParam = WM_RBUTTONDOWN) then
  begin

  end;
End;

end.

Die Prozedur onTrayiconMessage wird einfach nie aufgerufen, wäre nett wenn mir jemand da n Tipp
geben könnte !

Alles gute, Michael.