对于 dataset 控件，有没有什么方法能够做到在 Append 后当前焦点不变？

Question

我使用 ClientDataSet 控件，我想用多线程在后台查找数据到 ClientDataSet 中因此，我不希望 Append 的时候当前行的焦点发生变化。是不是只能使用 ListView 控件来模拟 DBGrid 控件？可是我希望用 ClientDataSet 来保存数据啊

Answer 1

var
  idx: Integer;
begin
  idx := ClientDataSet1.RecNo;  //记录当前“记录行号”
  ClientDataSet1.Append;
  ……
  ClientDataSet1.Post;
  ClientDataSet1.RecNo := idx;  //还原当前“记录行号”
end;

Answer 2

//可以通过控制book来实现
var
  p:Pointer;
begin
p:=ClientDataSet1.GetBook;
ClientDataSet1.Append;
  ……
ClientDataSet1.Post;
ClientDataSet1.GotoBook( p );
end;