Acceder a las propiedades protegidas de un DBGrid

[[gluglu]]

Hola Amigos !

Intento lo siguiente con Delphi 2005 para poder acceder a la propiedad protegida DBGrid.Row

Código Delphi [-]
type
  THackGrid = class(TDBGrid);
...
procedure TMain.Panel1Enter(Sender: TObject);
var
  N_Row: Integer;
begin
  N_Row := THackGrid(DBGrid1).Row;
  Panel1.Top := 106 + (18*N_Row);
end;

pero al compilar me dá el siguiente error:
"[Error]: E2363 Only methods of descendent types may access protected symbol [Borland.VclDbCtrls]TCustomDBGrid.Row across assembly boundaries"

Alguna recomendación ? Gracias por vuestra ayuda.

[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.

[jachguate]

¿Has checado que el offset en la declaración de la clase sea el mismo en THackGrid y TDBGrid?

[[gluglu]]

Gracias Jachguate,

Me podrías por favor especificar un poco más el concepto de offset de ambas clases, o donde poder especificarlo ?

He probado el mismo código con Delphi 7 y funciona correctamente. La pregunta clave es por qué ...(!) no funciona en Delphi 2005 ?

Un saludo a todos.

Añado lo siguiente : Acabo de probar otra cosa cuanto menos sospechosa y curiosa. He intentado de la misma manera acceder a una función "no protegida" de THackGrid (por ejemplo, FieldCount) y me da el mismo error.

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

El error de nuevo es : "Object reference not set to an instance of an Object".

[[gluglu]]

Sigo comiéndome el coco con este tema !

Por lo que sigo consultando en todos los sitios que puedo encontrar, me hago una pregunta a mí mismo y a todos vosotros:

Sería necesario definir correctamente (en Delphi 2005) la propiedad 'Row', dentro de la definición de la clase THackGrid, de esta manera ?

Código Delphi [-]
protected property Row: Integer write SetRow;

Si fuera así, por desconocimiento mío, como se haría de manera correcta y completa?

Un saludo.

[andres1569]

Hola, sólo puedo decirte que he probado ese código en Delphi 6.0 y funciona correctamente (haciendo uso de un Frame, como en tu ejemplo)

No creo que tenga que ver con la definición de la propiedad (no hace falta que le asignes ningún método write pues la propiedad ya existe en la clase base). Por el mensaje de error es como si accedieras a una propiedad de un Objeto inexistente, puede que el error esté en otra parte ...

[[maeyanes]]

Solo una pregunta, la aplicación que estás haciendo en Delphi 2005, es Win32 o .NET?

Por que el error que mencionas al principio del hilo me suena mucho a .NET (por aquello de los assembly), y puede ser que no sea posible hacer en .NET eso que quieres. Claro, solo estoy suponiendo, por que se tendría que investigar bien.


Saludos...