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;

在循环遍历数据集之前,您可以记下网格显示的顶行以及显示的总记录数.有了这些信息,在重新定位记录后,您可以将记录定位到确切的行,方法是移动到顶部或底部,然后再移回.

你可以通过MoveBys进行移动.不幸的是,TDBGrid的Row和RowCount属性受到保护,因为你必须使用众所周知的“受保护的黑客”.

在this答案中有代码示例,以及检查书签,这样您就不会以错误的记录结束.