Pilih baris setelah menyegarkan DBGrid

Sebelum menyegarkan, simpan pilihan himpunan data tertaut saat ini sebagai penanda, lalu pulihkan penanda setelahnya.

Jawaban ini dimaksudkan sebagai pelengkap kecil bagi jawaban Mason, bukan sebagai alternatif. Saya menambahkannya hanya karena jawaban lain telah muncul, menyarankan, salah, penggunaan properti RecNo kumpulan data. Tidak semua turunan TDataSet mengimplementasikan RecNo dengan andal atau tidak sama sekali. Beberapa keturunan hanya mengembalikan nilai konstan, mis. 0 untuk RecNo baris saat ini dan tidak melakukan apa pun saat Anda menetapkan nilai padanya.

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;