Atajo para llamar a métodos protegidos

[dec]

La clase "TStringGrid" desciende de "TCustomGrid", la cual posee un método protegido llamado "DeleteRow" que sirve para eliminar una fila de la rejilla.

Si tenemos un componente de clase TStringGrid llamado "Rejilla" dentro de una forma, y queremos eliminar su tercera fila (la número 2) con el método DeleteRow, la sentencia

Código Delphi [-]
Rejilla.DeleteRow(2);

Resulta inválida para el compilador ya que DeleteRow es un método protegido en la clase TCustomGrid, la cual se encuentra en otra unidad y por lo tanto dicho método es inaccesible para llamarlo desde un evento de la forma o de algún botón que esté sobre ella, no obstante si es accesible para redefinirlo.

La solución normal sería definir una nueva clase compontente rejilla de cadenas descendiente de TStringGrid, hacer en ella público el método DeleteRow, redefiniéndolo con "Override" ya que es virtual, compilar el componente en algún paquete que lo registre, e instalarlo en la paleta de componentes, para entonces eliminar nuestro componente TStringGrid de la forma y agregar uno que sea de la nueva clase que creamos.

Un truco para evitar todo ese procedimiento es colocar en la unidad de la forma el siguiente código:

Código Delphi [-]
Type
  { Componente Rejilla de Cadenas }
  TRejiCade = Class (TStringGrid)
    Public
      Procedure DeleteRow (Fila: LongInt); Override;
  End;

  Procedure TRejiCade.DeleteRow (Fila: LongInt);
  Begin
    Inherited DeleteRow (Fila);
  End;

Ahora, para llamar al método protegido DeleteRow de nuestra rejilla TStringGrid, se aplica la siguiente sentencia con molde de tipo:

Código Delphi [-]
TRejiCade (Rejilla).DeleteRow (2);

La anterior sentencia significa "Tomar el componente Rejilla como si fuera un objeto TRejiCade, ejecutándo su método DeleteRow con el entero 2 como argumento"

Este truco puede ser de ayuda en alguna situación donde no convenga o no se desee definir, registrar y usar un nuevo tipo de componente, sólo para tener acceso a un método protegido.

Al González.