Como preguntarlo !!!!

[Neftali [Germán.Estévez]]

Empezado por dec

Ojo que el "inherited" no forma parte de la misma instrucción. El código es el siguiente.

Ya me extrañaba que estuviera ahí, pero diría que en este caso no afecta al funcionamiento del componente.

Es decir, creo que todo funcionaría igual si utilizamos:

Código Delphi [-]
 constructor TDecWebBrowser.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);

   // Asigno el método al evento
   inherited OnBeforeNavigate2 := AntesDeNavegar;
 end;

[yapt]

Empezado por Neftali

Es decir, creo que todo funcionaría igual si utilizamos:

Código Delphi [-]
 constructor TDecWebBrowser.Create(AOwner: TComponent);
 begin
   inherited OnBeforeNavigate2 := AntesDeNavegar;
 end;

Entonces esto se puede hacer ? Pues lo siento, soy un ceporro, pero no lo entiendo.

Eso lo que hará es (pregunto):

1.- ejecutar el método Inherited Create() del ancestro.
2.- Asignar el método AntesDeNavegar a OnBeforeNavigate2

o bien

1.- Asignar el método AntesDeNavegar al método OnBeforeNavigate2 (pero de la clase padre).


¿¿??

Sorry...

[Neftali [Germán.Estévez]]

Empezado por yapt

Entonces esto se puede hacer ? Pues lo siento, soy un ceporro, pero no lo entiendo.

Digamos que se puede hacer, que no falla, pero que no tiene mucho sentido.

Ambos componentes comparten ese mismo evento (que está definido en el padre), por lo tanto al llamar al evento normal o llamarlo con el inherited nos estamos refiriendo a lo mismo.

Hay otras ocasiones en que en el derivado se redefine una propiedad, y no es lo mismo acceder a la del propio componente que a la del padre.

[yapt]

Comprendido.

Muchas gracias Neftalí.

Un saludo.

[roman]

Empezado por Neftali

Hay otras ocasiones en que en el derivado se redefine una propiedad, y no es lo mismo acceder a la del propio componente que a la del padre.

Pero, es que ¡éste es uno de esos otros casos!

Recuerden que el compañero yapt se refirió específicamente al código de Crandel en el hilo iniciado por dec. Y lo que hace Crandel es precisamente redefinir la propiedad (evento) y por ello pone:

Código Delphi [-]
constructor TDecWebBrowser.Create(AOwner: TComponent);
begin
  inherited;
  // Asigno el método al evento
  inherited OnBeforeNavigate2 := AntesDeNavegar;
 end;

en donde no sobra ninguno de los dos inherited. El primero es para ejecutar el constructor de la clase ancestra y el segundo es para asignar a la propiedad ancestra el método AntesNavegar.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

Pero, es que ¡éste es uno de esos otros casos!

Sí, en el código de Crandel, donde ya se ha definido en la nueva clase una nueva propiedad, pero no en el código de David, donde todavía no se ha definido la nueva propiedad.

Me hice un lío y se me quedó el código de David (dec) en mente. A ese es al que me estaba refiriendo yo.

[yapt]

Empezado por roman

Código Delphi [-]constructor TDecWebBrowser.Create(AOwner: TComponent); begin inherited; // Asigno el método al evento inherited OnBeforeNavigate2 := AntesDeNavegar; end;



en donde no sobra ninguno de los dos inherited. El primero es para ejecutar el constructor de la clase ancestra y el segundo es para asignar a la propiedad ancestra el método AntesNavegar.

// Saludos

Gracias Román....

Empezado por Neftali

Sí, en el código de Crandel, donde ya se ha definido en la nueva clase una nueva propiedad, pero no en el código de David, donde todavía no se ha definido la nueva propiedad.

Y muchas gracias también. Neftali.

Con las explicaciones de todos, me ha quedado claro. Al código que yo me referia, lo que hace es:
- En la creación de la clase hija, se asigna el método AntesDeNavegar al Evento OnBeforeNavigate2 de la CLASE PADRE.

Comprendido.

Muchas gracias a todos.