Acceder a las propiedades protegidas de un DBGrid

[Thales]

El error te está diciendo que sólo puedes acceder a la propiedad Row desde algún método definido en la clase THackGrid y no desde la clase TMain

¿Qué es lo que quieres hacer?

[[gluglu]]

Lo que intento precisamente es lo que se indica arriba en el código, al activar un panel ('Panel1'), posicionarlo en la pantalla según la línea del DBGrid1 que tenga selecccionado, concretamente en la posicion Top := 106 + (18*N_Row), siendo N_Row la línea del DBGrid1 que en ese momento se encuentre activa.

El código que tengo es:

Código Delphi [-]
unit Principal;
 
interface
 
uses
  ...
type
  THackGrid = class(TDBGrid);
  TMain = class(TForm)
    ...
    Frame1: TFrameA;
    ...
var
  Principal1: TMain;
 
implementation
...
procedure TMain.Panel1Enter(Sender: TObject);
var
  N_Row: Integer;
begin
  N_Row := THackGrid(Frame1.DBGrid1).Row;
  Panel1.Top := 106 + (18*N_Row);
end;

Nota: El FrameA está definido adicionalmente y el DBGrid1 es parte de ese FrameA, al igual que Panel1.
Gracias de nuevo por la ayuda.

[andres1569]

Hola.

Como te dice el mensaje de error, no puedes acceder a dicha propiedad desde otra clase, sólo desde una clase descendiente. Por lo cual, la clase THackGrid debería publicar dicha propiedad (hacerla o bien public o bien published), y luego el mismo código que ya tienes te servirá:

Código Delphi [-]
THackGrid = class(TDBGrid)
public
  property Row;
end;

Por cierto, podrías también dejar la propiedad como protected (pero redeclarándola), y podrías accederla sólo desde la misma unit, pero no desde otras.

Código Delphi [-]
THackGrid = class(TDBGrid)
protected
  property Row;
end;

Saludos

[[gluglu]]

Gracias Andres1569,

He probado de las tres maneras, tanto public, published como protected. Ahora sí me deja compilar correctamente. Pero en todos los casos, al intentar acceder en el código del procedimiento a la función

Código Delphi [-]
N_Row := THackGrid(DBGrid1).Row;

me da un error en tiempo de ejecución "Object Reference not set to an instance of an Object" y no se ejecuta correctamente.

Que puedo estar haciendo mal ?

Nota : Una vez más indicar que utilizo Delphi 2005

[andres1569]

Hola de nuevo:

Así a botepronto no sé el motivo, pero ése es el peligro de redeclarar una propiedad protegida, seguramente se dejó así por algo, habría que mirar en la VCL si el método (¿GetRow?) que devuelve dicha propiedad accede a algún objeto o puntero inexistente. O vete tú a saber, ese mensaje parece indicar que el objeto (¿el DBGrid1?) no apunta a una instancia válida.

[Delfino]

Este puede ayudarte..

[[gluglu]]

Gracias Delphino,

Precísamente de la página de delphi.about saqué la idea de acceder a la propiedad protegida.

Lo que no sé es por qué causa concreta no me funciona en el Delphi 2005. La verdad es que no he probado con versiones anteriores.