problemas la hacer un cast de un TStringGrid(DBGrid)

[andres1569]

Hola:

Delphi.com.ar escribió:

Pero Román tiene toda la razón, el problema es que un TStringGrid no es ancestro de TDBGrid, así es la jerarquía:
TDBGrid -> TCustomDBGrid -> TCustomGrid
TStringGrid -> TDrawGrid -> TCustomGrid

No he dicho en ningún momento que un TStringGrid sea un ancestro de TDBGrid, sino que ambos tienen un ancestro común, TCustomGrid. El caso es que la propiedad DefaultRowHeight está definida en ese ancestro, pero sólo es accesible desde "fuera" por el programador final que usa un TStringGrid, al ser public en esta clase.

Cuando hacemos el cast TStringGrid(DBGrid1) simplemente engañamos al compilador para que no proteste pero la instrucción/propiedad que se ejecuta es la del ancestro (probadlo si queréis), la del TCustomGrid, no la del TStringGrid (eso si podría ser una fuente de complicaciones). De esa forma accedemos a una propiedad que pertenece plenamente a nuestra clase.

Roman escribió:

Esto, si bien puede funcionar en algunos casos porque el primo por casualidad tenga un método del mismo nombre, puede llevar a problemas de violación de acceso.

En este caso no hay casualidad sino que el método está definido en el TCustomGrid. Eso sí, no creo que nadie deba utilizar este truco confiando en la casualidad, sino cerciorándose de que se accede a un método soportado.

Saludos