1

我有一个 DBGrid，每次使用水平滚动条时都需要运行一些代码。我在 DBGrid 中找不到这样的事件。你能给点建议吗？

4

4 回答 4

6

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 ：请注意，您可以将您的特殊 TDBGrid 代码移动到一个单独的单元（推荐），只需确保将此单元名称放在DBGrids之后的 Form 的 uses 子句中。

于 2009-11-12T19:00:09.177 回答
5

也许这会有所帮助。它显示了一个捕获常规 TStringGrid 的滚动事件的示例。同步两个 TStringgrids 的滚动？

于 2009-11-12T18:08:10.393 回答
1

编辑：显然是错误的答案。它捕捉垂直滚动条，但不捕捉水平滚动条。

您不会在 DBGrid 级别捕获它。您在附加的 TDataSet 的 BeforeScroll 或 AfterScroll 处捕获它。它使用 DBGrid 中出现的滚动条、向上和向下箭头键、向上和向下翻页键等触发。

于 2009-11-12T18:12:18.167 回答
0

我现在无法检查这个，但如果我没记错的话，事件就在那里，但没有发布。尝试创建一个源自 TDBGrid 并发布滚动条事件的控件。

于 2009-11-12T16:54:07.123 回答