Encontrar la fila actual en TDBGrid de Delphi

Question

¿Hay alguna forma de averiguar qué fila es la actual en una TDBGrid?

Answer 1

No estoy seguro si entiendo su pregunta, pero intentaré una respuesta y quizás pueda aclarar si esto no es lo que está preguntando.

Dado que un TDBGrid está vinculado a un DataSource, la fila actual es la misma que la fila actual en el origen de datos. Puede consultar DataSource, ya sea mirando un valor de clave principal o la propiedad RecNo para determinar qué registro es el actual.

Answer 2

Si no desea depender de la fuente de datos para proporcionar un recuento de registros y un registro actual (por ejemplo, porque está utilizando un cursor unidireccional en un servidor remoto), entonces la técnica de acceder a las propiedades de la control de rejilla subyacente se puede utilizar.

Consulte this answer para una pregunta similar sobre StackOverflow.

Answer 3

Puede hacerlo de esta manera:

1 - Definir una clase local que es una copia de TDBGrid (esto le permitirá acceder a los métodos privados):

type 
    THackDBGrid = class(TDBGrid); 

2 - A continuación, puede emitir a su clase definida localmente, y tire de los métodos privados como en:

function TfrmMain.GetFieldValue(colnum : integer): string; 
begin 
    Result := THackDBGrid(grdMain).GetFieldValue(colnum); 
end; 

O, para obtener la fila #:

function CurrentRowNumber: integer; 
    Result := THackDBGrid(grdMain).Row; 
end; 

Esta técnica es útil en otras situaciones, también, pero no puedo reclamar el crédito. I got it from here.