Hallo,
ich möchte die Botschaft WM_RBUTTONDOWN eines Items der Toolbar2000 abfangen!
Das funktioniert mit dem folgenden Code auch, aber nur auf der Toolbar2000 selber.
Klicke ich mit der rechten Maustaste auf ein Item, welches in eine Dropdown eines andere Items angezeigt wird (siehe Bild) funktioniert das abfangen nicht mehr.
http://www.mirrorkey.com/test/bild4.jpg
Laut dem Tool Winspector-Spy wird aber mit dem Rechtsklick die Botschaft gesendet.
Mein Vermutung ist, dass das Dropdown selber die Botschaften abfängt und verarbeitet, und ich diese deshalb nicht bekomme.
Ich hab bloß keine Ahnung, wie ich den Code abändern muss das ich auch diese Botschaften abfange!
Kann mir da jemand BITTE helfen!? Das ist mein letztes Problem!
Delphi-Quellcode:
private
{ Private-Deklarationen }
OldProgressWndProc: TWndMethod;
procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OldProgressWndProc:=TBToolbar1.WindowProc;
TBToolbar1.WindowProc:=ProgressWndProc;
end;
procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
if msg.Msg = WM_RBUTTONDOWN then
begin
// Hier dann meine Aktion
end;
OldProgressWndProc (Msg);
end;
Danke im voraus...
MfG
Frank