delphi – 返回先前位置时如何避免TDbgrid滚动

但是,有时,完成后,顶部选定的行已滚动,以便在网格下方显示1/2.有没有办法避免这种滚动？ (如果我的代码遍历下面的选定行是不正确的,由于一些无关的原因,我欢迎更正.)

Function TForm.DoSomethingToSelectedRows;
  var
    KeyAtStart: Integer;
  begin
    Result := TRUE;
    KeyAtStart := DataSet.FieldByName('Key').AsInteger;
    DataSet.DisableControls;
    DataSet.First;
    try
      while Result AND (NOT DataSet.EOF) do  DataSet
        begin
          if DBGrid1.SelectedRows.CurrentRowSelected then
            Result := ... do something ...
          fMPODataTls.GetDS.Next;
        end;
    finally
      DataSet.Locate('Key',KeyAtStart,[]);    // re-position where we started
      DataSet.EnableControls;
    end;
  end;