Wybierz wiersz po odświeżeniu DBGrid

Question

Cóż, jakieś pytanie n00b ode mnie. Przeszukałem sieć i podobne pytania, ale nie znalazłem żadnych właściwych odpowiedzi na tak prosty (jak mi się wydawało) problem.

Mam DBGrid. Wybieram jeden wiersz i podejmuję pewne działania z innymi danymi powiązanymi z tym wierszem. Po zakończeniu mój DBGrid jest odświeżany, a wybrany wiersz resetowany do pierwszego. Chcę uzyskać ten sam wybrany wiersz, który został wybrany przed odświeżeniem danych DBGrid. Jakieś sugestie?

Answer 1

Przed odświeżeniem zapisz bieżący wybór połączonego zestawu danych jako zakładkę, a następnie przywróć zakładkę.

Answer 2

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

Answer 3

Ta odpowiedź jest przeznaczona jako pomniejsze uzupełnienie dla Masona, a nie jako alternatywa. Dodałem go tylko dlatego, że pojawiła się inna odpowiedź, sugerując, niewłaściwie imo, użycie właściwości RecNo zbioru danych. Nie wszyscy potomkowie TDataSet implementują RecNo niezawodnie lub wcale. Niektórzy potomkowie po prostu zwracają stałą wartość, np. 0 dla RecNo bieżących wierszy i nic nie robić po przypisaniu do niego wartości.

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;