Se puede hacer de 2 maneras
.
Primera:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var p:TBookmark;
begin
try
ClientDataSet1.DisableControls;
p:=ClientDataSet1.GetBookmark; ClientDataSet1.GotoBookmark(p); finally
ClientDataSet1.FreeBookmark(p); ClientDataSet1.EnableControls;
end;
end;
Segunda:
Código Delphi
[-]procedure TForm1.Button2Click(Sender: TObject);
var Fila_Actual:Integer;
begin
Fila_Actual:=ClientDataSet1.RecNo;
ClientDataSet1.DisableControls;
ClientDataSet1.RecNo:=Fila_Actual; ClientDataSet1.EnableControls;
end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7