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

概述在下面的代码中,我们对某些选定的行执行一些 *** 作(而不是删除). 但是,有时,完成后,顶部选定的行已滚动,以便在网格下方显示1/2.有没有办法避免这种滚动？ (如果我的代码遍历下面的选定行是不正确的,由于一些无关的原因,我欢迎更正.) Function TForm.DoSomethingToSelectedRows; var KeyAtStart: Integer; begin 在下面的代码中,我们对某些选定的行执行一些 *** 作(而不是删除).

但是,有时,完成后,顶部选定的行已滚动,以便在网格下方显示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答案中有代码示例,以及检查书签,这样您就不会以错误的记录结束.

总结

以上是内存溢出为你收集整理的delphi – 返回先前位置时如何避免TDbgrid滚动全部内容，希望文章能够帮你解决delphi – 返回先前位置时如何避免TDbgrid滚动所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。