Delphi/C++Builder中TDBGrid拖动滚动条滑块时能否实时滚动内容？

Delphi/C++Builder的原生TDBGrid并没有类似.Net DBGrid的ScrollTrack属性，但可以通过拦截滚动条消息来实现拖动滑块时同步滚动内容的效果，具体方法如下：

核心思路 #

TDBGrid的垂直滚动条是Windows原生控件，拖动滑块时会向控件发送WM_VSCROLL消息，其中SB_THUMBTRACK代表滑块正在拖动的状态。默认情况下，TDBGrid仅在滑块松开（对应SB_THUMBPOSITION状态）时才处理滚动，我们需要拦截这个消息，在SB_THUMBTRACK触发时手动执行滚动并刷新表格。

Delphi 实现代码 #

可以通过子类化TDBGrid并重写WndProc方法来实现：

type
  TCustomDBGrid = class(Vcl.DBGrids.TDBGrid)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

implementation

procedure TCustomDBGrid.WndProc(var Message: TMessage);
var
  ScrollCode: Integer;
begin
  inherited;
  if Message.Msg = WM_VSCROLL then
  begin
    ScrollCode := Message.WParamLo;
    // 检测滑块拖动中的状态
    if ScrollCode = SB_THUMBTRACK then
    begin
      // 模拟滑块定位的消息，触发滚动
      Perform(WM_VSCROLL, MakeWParam(SB_THUMBPOSITION, Message.WParamHi), 0);
      // 强制刷新表格，确保内容同步更新
      Invalidate;
    end;
  end;
end;

C++Builder 实现代码 #

同样通过继承TDBGrid并重写WndProc：

#include <DBGrids.hpp>

class TCustomDBGrid : public TDBGrid
{
protected:
    void __fastcall WndProc(TMessage &Message);
};

void __fastcall TCustomDBGrid::WndProc(TMessage &Message)
{
    TDBGrid::WndProc(Message);
    if (Message.Msg == WM_VSCROLL)
    {
        int ScrollCode = LOWORD(Message.WParam);
        if (ScrollCode == SB_THUMBTRACK)
        {
            // 发送定位消息触发滚动
            Perform(WM_VSCROLL, MAKELONG(SB_THUMBPOSITION, HIWORD(Message.WParam)), 0);
            // 刷新表格内容
            Invalidate();
        }
    }
}

补充说明 #

• 如果你使用第三方表格组件（如DevExpress TcxGrid），这类组件通常内置了实时滚动的功能，无需手动实现。
• 上述方法仅针对垂直滚动条，若需要处理水平滚动条，只需把WM_VSCROLL换成WM_HSCROLL，SB_THUMBTRACK逻辑保持一致即可。

内容的提问来源于stack exchange，提问作者user3161924