Autor Tema: Herencia En Formularios (Leído 2101 veces)

Homar2006 · « **en:** Jueves 16 de Noviembre de 2006, 22:34 »

Hola a todos....

Cuando se utiliza un formulario y se le da la opcion de "Inherited", al momento de generar un evento, dentro de este aparece la palabra reservada "Inherited;".

Que va antes y que va despues del "Inherited"???

Enko

Antes de "inherited NombreMetodoClasePadre" por lo general no va nada; salgo si es un destructor, en ese caso, va primero todo el codigo y luego inherited.

Puedes buscar en google sobre Herencia, Polimorfismo y Metodos Virtuales o bien, leer "La cara oculta de delphi 4" que trata muy bien el tema.

Si solo estas usando eventos en tiempo de diseño para formularios, pues simplemente no te hace falta la palabra "inherited".

Lo que hace inherited NombreMetodo, es ejecutar el codigo del mismo metodo de la clase padre, y luego seguir adelante.

Homar2006

Enko, que pena si no me hice entender ahi te envio un ejemplo.

procedure TFrmNmFamil.KPField1Click(Sender: TObject);
begin // Cuando de click en la lupa, realizar la siguiente sentencia.
KPField1.SQL.Clear;
KPField1.SQL.Add('SELECT DISTINCT A.IDE_EMPL, NOM_EMPL');
KPField1.SQL.Add('FROM TBL_EMPLEADOS A, TBL_CONTRATOS B');
KPField1.SQL.Add('WHERE A.IDE_EMPL = B.IDE_EMPL AND');
KPField1.SQL.Add('A.COD_EMPR =' + IntToStr(Application.Tag));
LOV(KPField1);
inherited; //ESTE INHERITED ------
end;

end.

Enko

Pues en ese caso, NO HACE NADA. Es como tener muchos ";;;;;;;;;;" compila, pero no tiene sentido.

SoloCodigo

Autor Tema: Herencia En Formularios (Leído 2101 veces)

Homar2006

Herencia En Formularios

Enko

Re: Herencia En Formularios

Homar2006

Re: Herencia En Formularios

Enko

Re: Herencia En Formularios