[[Al González]]

Hola jjaen26.

Esto puede servirte, aunque convendría que nos comentaras un poco más sobre lo que quieres lograr y el por qué.

Código Delphi [-]
  Type
    TDataSetAccess = Class (TDataSet);
procedure TForm1.Button1Click(Sender: TObject);
Var
  D :TDataSetAccess;
  B :TBookmark;
begin
  D := TDataSetAccess (DBGrid1.DataSource.DataSet);
  GetMem (B, D.BookmarkSize);

  Try
    // Obtenemos el identificador (bookmark) del primer registro visible
    D.GetBookmarkData (D.Buffers [0], B);

    // Hacemos lo que queramos con ese identificador
    D.GotoBookmark (B);
  Finally
    FreeMem (B);
  End;

"D.Buffers [0]" es la primera fila mostrada en la rejilla, siempre y cuando no haya otros controles similares (de múltiples filas) asociados al mismo conjunto de datos.

Un saludo.

Al González.