Hallo,
ich weiß nicht wie ich den folgenden Code ergänzen soll um die Windows-Botschaften einer Klasse einer Komponente abzufangen!
Der Code funktioniert wenn ich die eigentliche Komponente nehme (siehe Kommentare). Da aber die Klasse scheinbar ein eigenes Fensterhandle hat, komm ich so nicht ran.
Die Klasse heißt TTBToolbar !
Delphi-Quellcode:
private
OldProgressWndProc: TWndMethod;
procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
var Index: integer;
begin
// OldProgressWndProc:=TBToolbar1.WindowProc;
// TBToolbar1.WindowProc:=ProgressWndProc;
OldProgressWndProc:= ???
???:=ProgressWndProc;
end;
procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
if msg.Msg = WM_RBUTTONDOWN then
begin
// Hier soll meine Aktion ausgeführt werden.
end;
OldProgressWndProc (Msg);
end;
Vielen Dank im voraus...