cxgrid 刷新数据后保持原来的显示位置不变

var i,ti:integer;

begin

 i:=cxGrid1DBTableView1.Controller.FocusedRowIndex;  //记录焦点行号

 ti:=cxGrid1DBTableView1.Controller.TopRowIndex;     //记录顶行号

 数据集.Active:=False;

 数据集.Active:=True;

 try

   cxGrid1DBTableView1.Controller.FocusedRowIndex:=i; //焦点行定位到记录值

   cxGrid1DBTableView1.Controller.TopRowIndex:=ti;    //顶行 定位到记录值

 except

 end;

end;

DataController.RefreshExternalData; //刷新数据集

cxGridDBDataDefinitions;

TcxGridDBDataController(DataController).DataSet.Refresh;