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