Hallo
Überschreibe die WindowProc des TDBGrids und fange dort die Nachricht WM_HSCROLL ab.
Sieht dann etwas so aus:
Delphi-Quellcode:
private
OldDBGridWndProc: TWndMethod;
procedure DBGridWindowProc(var Message: TMessage);
procedure TForm1.FormCreate(Sender: TObject);
begin
OldDBGridWndProc := DBGrid1.WindowProc;
DBGrid1.WindowProc := DBGridWindowProc;
end;
procedure TForm1.DBGridWindowProc(var Message: TMessage);
begin
OldDBGridWndProc(Message);
if Message.Msg = WM_HSCROLL then
...
end;