幸福快樂的淺藍色小風之安全堡壘

type THackDBGrid = class(TDBGrid);
...
procedure TForm1.DBGrid1MouseMove
  (Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  gc: TGridCoord;
begin

  gc:= DBGrid1.MouseCoord(x, y);

  if (gc.X > 0) AND (gc.Y > 0) then
  begin

    DBGrid1.DataSource.DataSet.MoveBy
        (gc.Y - THackDBGrid(DBGrid1).Row);
  end;
end;

原始出處:About Delphi Programming