CallbackMessage TNotifyIconData

[Desmulator]

HalliHallo

Bevor ich anfange zu texten erst einmal allen Frohe Weihnachten ...

Naja also es geht um Messages und um das Icon in der SysTray...

Folgender Code:

Delphi-Quellcode:

const
 WM_TASKBARICON = WM_USER + 0; { Wichtige Message }

... 

type
  TTaskBarIcon = class(TObject)
    private
      ...
      //MessageFunktion
      procedure WMTaskbarEvent(var Msg: TMessage); message WM_TASKBARICON;

...

IcoData.uCallbackMessage := WM_TASKBARICON;

...

procedure TTaskBarIcon.WMTaskbarEvent(var Msg: TMessage);
var 
  Point: TPoint;
begin
  showmessage('klick');
  try
    case Msg.LParamLo of
      WM_LBUTTONDOWN: begin
                          if Assigned(OnClick) then
                            OnClick();
                      end;
      WM_RBUTTONDOWN: begin
                          SetForegroundWindow(FOwner);
                          GetCursorPos(Point);
                          FPopupMenu.popup(Point.X,Point.Y);
                     end;
    end;
  except
    //Fehler: nichts
  end;
end;

Eigendlich müsste ja testweise bei einem Klick auf das Icon die Nachricht "klick" angezeigt werden, aber das passier nicht. Ich weiß nicht sowarn es liegt, die namen habe ich auch schon tausendmal kontrolliert, es stimmt allse.

Zur Info: das ganze ist in einer selbstgeschriebnen Unit. Ka ob das was damit zu tun hat, glaube net...

Und es läuft wärend dessen eine Schleife dauerhaft... ich mal dass das auch nicht schlimm ist...

Delphi-Quellcode:

while not Application.Terminated do begin


end;

Naja danke für eure Hilfe vorab!