Windows-Message WM_... abfangen ???

[TriphunEM]

hallo. mit folgende code ist es ja möglich eine message für alle komponenten bzw. fenster einer Anwednung abzufangen.

Delphi-Quellcode:

private
  { Private-Deklarationen }
  procedure GetMessages(var msg: TMsg; var handled: boolean);
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=GetMessages;
end;

procedure TForm1.GetMessages(var msg: TMsg; var handled: boolean);
begin
  if msg.message = WM_RBUTTONDOWN then
  begin
    // was ausgführt werden soll
    handled:=true;
  end;
end;

das funktioniert auch soweit, bis auf ein Item eines Mainmenüs was ich in eine Toolbar gesteckt habe!

Warum funktioniert es dort nicht?

Hat da jemand eine Idee?

Danke im voraus???