problemas la hacer un cast de un TStringGrid(DBGrid)

[roman]

Ok Andrés, aquí te va un pequeño relato

El señor Bor Land definió tres clases:

TGrid = class
private
  FRowHeight: Integer;

protected
  RowHeight: Integer read FRowHeight write FRowHeight;

public
  constructor Create; // Establece RowHeight a valor inicial
end;

TDbGrid = class(TGrid)
end;

TStringGrid = class(TGrid)
private
  Font: TFont;

public
  constructor Create; // crea Font
  destructor Destroy; override; // libera Font;

  // publica RowHeight (y la redefine)
  property RowHeight: Integer read GetHeight write SetHeight;

TStringGrid debía redefinir RowHeight para cambiar el tamaño del font al cambiar la altura del renglón pero sin perder la funcionalidad anterior (no mucha en este caso pero es un cuento)

function TStringGrid.GetRowHeight: Integer;
begin
  Result := inherited RowHeight;
end;

procedure TStringGrid.SetRowHeight(Value: Integer);
begin
  inherited RowHeight := Value;
  Font.Height := Value;
end;

Tiempo después llega un programador que necesita un DBGrid pero desafortunadamente la propiedad RowHeight está protegida. Entonces lee la documentación y se cerciora de que el ancestro TGrid tiene la propiedad y piensa: "debo derivar una clase de TDbGrid para desprotegerla". Pero también nota que otro descendiente de TGrid, TStringGrid, publica la propiedad y piensa: "¡Ah! ¡Más fácil! Mejor hago un "casting".

La documentación nada dice acerca de Font pues es una propiedad privada que no interesa al público en general.

Como DbGrid es una instancia de TDbGrid no posee el campo Font, así que ¿qué sucederá cuando nuestro protagonista escriba:

TStringGrid(DbGrid).RowHeight := 60;

?

¡¡Una violación de acceso!!

Y colorín colorado, este cuento se ha acabado

// Saludos