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???