Klick wird nicht erkannt!?

[Jens Schumann]

Hallo Daniel,
ich verwende RegisterWindowsMessage um den Wert für die uCallBackMessage zu erhalten. Dieser Wert ist dann systemweit eindeutig.
Dann sieht das ganze so aus:
FTaskBarMessage : Word; Im constructor dann
FTaskBarMessage := RegisterWindowMessage('JSWTCTaskBarMessage');

Delphi-Quellcode:

procedure TFormWTC.WndProc(var Message: TMessage);
begin
  If Message.Msg=FTaskBarMessage then
    begin
    Case Message.lParam of
      WM_RButtonDown   : ShowPopupMenu;
       end;
    end;
  inherited;
end;

Die Sache funktioniert unter Win9x,NT und 2000