Как уловить событие прокрутки в DBGrid в Delphi

Question

У меня есть DBGrid, мне нужно запустить код, каждый раз, когда используется горизонтальная полоса прокрутки. Я не смог найти такое событие в DBGrid. Можете ли вы что-то посоветовать?

Answer 1

Возможно, это поможет. Он показывает пример захвата событий прокрутки регулярного TStringGrid. Synchronize the Scrolling of two TStringgrids?

Answer 2

Я не могу проверить это на данный момент, но если я правильно помню, что это событие, но не опубликовано. Попробуйте создать элемент управления, который спускается из TDBGrid и публикует событие полосы прокрутки.

Answer 3

EDIT: неправильный ответ, очевидно. Он ловит по вертикали полоса прокрутки, но не горизонтальная одна.

Вы не поймаете его на уровне DBGrid. Вы попадаете в PreScroll или AfterScroll из прилагаемого TDataSet. Он запускается либо с помощью полосы прокрутки, клавиш со стрелками вверх и вниз, вверх по страницам , так и с помощью клавиш «вниз» и т. Д., Которые происходят в DBGrid.

Answer 4

В TCustomGrid есть процедура WMHScroll, но она является частной. Вы не можете использовать его в DBGrid.
Вы должны создать свой собственный TDBGrid потомок и сделать свой собственный

procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL; 

или сделать некоторые серьезно плохие хакерство ...

Update: трюк/взломать, чтобы проникнуть в ваш код ...

[...] 
    uses 
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
     Dialogs, DB, ADODB, Grids, DBGrids; 

    type 
     // Hack to redeclare your TDBGrid here whitout the the form designer going mad 
     TDBGrid = class(DBGrids.TDBGrid) 
     procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL; 
     end; 

     TForm8 = class(TForm) 
     DBGrid1: TDBGrid; 
     DataSource1: TDataSource; 
     ADODataSet1: TADODataSet; 
     ADOConnection1: TADOConnection; 
     private 
     { Private declarations } 
     public 
     { Public declarations } 
     end; 

    var 
     Form8: TForm8; 

    implementation 

    {$R *.dfm} 

    { TDBGrid } 

    procedure TDBGrid.WMHScroll(var Msg: TWMHScroll); 
    begin 
     case Msg.ScrollCode of 
     SB_ENDSCROLL: OutputDebugString('SB_ENDSCROLL') ; 
     SB_LEFT:OutputDebugString('SB_LEFT'); 
     SB_RIGHT:OutputDebugString('SB_RIGHT'); 
     SB_LINELEFT:OutputDebugString('SB_LINELEFT'); 
     SB_LINERIGHT:OutputDebugString('SB_LINERIGHT'); 
     SB_PAGELEFT:OutputDebugString('SB_PAGELEFT'); 
     SB_PAGERIGHT:OutputDebugString('SB_PAGERIGHT'); 
     SB_THUMBPOSITION:OutputDebugString('SB_THUMBPOSITION'); 
     end; 
     inherited; // to keep the expected behavior 
    end; 
[...] 

Update2: Обратите внимание, что вы можете переместить свой специальный код TDBGrid в отдельный блок (рекомендуется), просто не забудьте положить т его имя AFTER DBGrids в разделе «Использование формы», пункт.