Seleccione la fila después de actualizar DBGrid

Question

Bueno, algún tipo de pregunta n00b de mi parte. He navegado por la red y tengo preguntas similares aquí, pero no he encontrado ninguna respuesta correcta para un problema tan simple (como yo pensaba).

Tengo un DBGrid. Selecciono una fila y realizo algunas acciones con otra información vinculada a esta fila. Después de terminar, mi DBGrid se actualiza y la fila seleccionada se restablece a la primera. Quiero que se seleccione la misma fila que se seleccionó antes de actualizar los datos de DBGrid. ¿Alguna sugerencia?

Answer 1

Antes de la actualización, guarde la selección actual del conjunto de datos vinculados como un marcador, luego restaure el marcador después.

Answer 2

RecKey:=DmFRM.ViewTBL.RecNo; 
      with DmFRM.ViewTBL do 
       begin 
        Active:=false; 
        Active:=True; 
        RecNo:=RecKey; 
       end; 

Answer 3

Esta respuesta está pensada como un complemento menor de Mason, no una alternativa. Lo he agregado solo porque ha aparecido otra respuesta, sugiriendo, incorrectamente, el uso de la propiedad RecNo del conjunto de datos. No todos los descendientes TDataSet implementan RecNo confiablemente o en absoluto. Algunos descendientes simplemente devuelven un valor constante, p. 0 para el RecNo de las filas actuales y no hacer nada cuando le asigne un valor.

procedure TMyForm.DoSomethingWithDataSet(ADataSet : TDataSet); 
var 
    Bookmark : TBookmark; 
begin 
    Bookmark := ADataSet.GetBookmark; // Save your place in ADataSet 

    try 
    Screen.Cursor := crSqlWait; // Show the user that something is happening 
    Update; // update the form to make sure screen cursor updates 
    ADataSet.DisableControls; 
    // do something with ADataSet here e.g. 
    ADataSet.First; 
    while not ADataSet.Eof do begin 
     // do something with current row here, then 
     ADataSet.Next; 
    end; 
    finally 
    ADataSet.GotoBookmark(Bookmark); // Return to where you were at outset 
    ADataSet.FreeBookmark(Bookmark); 
    ADataSet.EnableControls; 
    Screen.Cursor := crDefault; // Let the user see you're done 
    end; 
end;