델파이의 DBGrid에서 스크롤링 이벤트를 잡는 방법

Question

DBGrid가 있는데 가로 스크롤 막대를 사용할 때마다 코드를 실행해야합니다. DBGrid에서 이러한 이벤트를 찾을 수 없습니다. 조언 할 수 있니?

Answer 1

아마도 도움이 될 것입니다. 일반 TStringGrid의 스크롤 이벤트를 트래핑하는 예제를 보여줍니다. Synchronize the Scrolling of two TStringgrids?

Answer 2

지금은이를 확인할 수 없지만 이벤트가 올바르게 기억되지만 게시되지는 않습니다. TDBGrid에서 파생 된 컨트롤을 만들고 스크롤 막대 이벤트를 게시하십시오.

Answer 3

편집 : 잘못된 대답, 분명히. 가로 스크롤바를 가로 지르지 않습니다.

DBGrid 수준에서 catch하지 마십시오. 부착 된 TDataSet의 BeforeScroll 또는 AfterScroll에서이를 잡습니다. 스크롤 막대, 위쪽 및 아래쪽 화살표 키, 페이지 위로 및 페이지 이동 키 등을 사용하여 DBGrid 내에서 발생합니다.

Answer 4

TCustomGrid에는 WMHScroll 프로 시저가 있지만 비공개입니다. DBGrid에서는 사용할 수 없습니다.
당신은 자신을 TDBGrid의 자손을 작성하고 자신의

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

을하거나 일부 심각하게 나쁜 해킹을 ...

업데이트 할 것 : 트릭을/당신의 코드를 몰래 해킹 ...

[...] 
    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; 
[...] 

갱신 2 : 별도의 장치 (권장), 만 t을 넣어 확실하게 당신의 특별한을 TDBGrid 코드를 이동할 수 있습니다 양식의 사용 조항에있는 단위 이름 AFTER DBGrids.