您可以使用Interposer Class来完成此操作。
使用以下内容创建新单元：

unit DBGridHelper;

interface

uses
  Winapi.Messages, Winapi.Windows,
  Vcl.DBGrids;

type
  TDBGrid = class(Vcl.DBGrids.TDBGrid)
  private
    procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;

implementation

procedure TDBGrid.WMVScroll(var Message: TWMVScroll);
begin
  inherited;
  if not (Focused or (InplaceEditor <> nil) and InplaceEditor.Focused) then Exit;
  if Datalink.Active then begin
    case Message.ScrollCode of
      SB_THUMBTRACK: DataLink.DataSet.RecNo := Message.Pos;
    end;
  end;
end;

end.

字符串
在每个包含 TDBGrid 的单元中，您需要在 * Vcl.DBGrids * 后面的某个地方将这个单元添加到接口uses子句中。