Du kannst auch (meintest du das mit Hooks ?) die WndProc der Toolbar umbiegen:
Delphi-Quellcode:
private
{ Private-Deklarationen }
OldProgressWndProc: TWndMethod;
procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
OldProgressWndProc := ToolBar1.WindowProc;
ToolBar1.WindowProc := ProgressWndProc;
end;
procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
// Hier Messages abfangen bevor die Toolbar reagieren kann
OldProgressWndProc (Msg);
// Hier Messages abfangen nachdem die Toolbar reagiert hat
end;
So in etwa - dann kriegst du alle Nachrichten, die die Toolbar bekommt ...