Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#3

Re: TDBGrid und horizontales Scrollen

  Alt 20. Feb 2009, 17:37
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;
Thomas
  Mit Zitat antworten Zitat