Como preguntarlo !!!!

[yapt]

Hola a todos,

curioseando por los foros (una verdadera fuente de incalculable valor para mí), me encuentro este hilo, iniciado por Dec:

http://www.clubdelphi.com/foros/showthread.php?t=26752

He estado leyendo este hilo (y otros) pues, para mi, que he estado programando durante años con Delphi en un modo cuasi absolutamente procedural, empezar a descubrir los "encantos" de la OOP, se está convirtiendo en algo un poco adictivo.

Pero son tantas las preguntas que....... Bueno, al grano con la cuestión:

Leyendo ese hilo que comento, me encuentro con esta lindeza que escribió Crandel:

Código Delphi [-]inherited OnBeforeNavigate2 := AntesDeNavegar;


Y mi vida ya no ha vuelto a ser la misma...... Recorro la ciudad, meditabundo, absorto mis pensamientos...... Paso las noches intentando dormir sin conseguirlo.... Con barba de unos cuantos días......

jejejejjee... Ahora en serio:

¿ Que puñetas quiere decir/hace eso ?

¿ Ejecuta el método heredado OnBeforeNavigate2
y, después,
le asigna el núevo método AntesDeNavegar ?

Gracias y perdón por mi ignorancia......

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

Código Delphi [-]
  inherited OnBeforeNavigate2 := AntesDeNavegar;

Empezado por yapt

.... Recorro la ciudad, meditabundo, absorto mis pensamientos...... Paso las noches intentando dormir sin conseguirlo.... Con barba de unos cuantos días......

Empezado por yapt

¿ Que puñetas quiere decir/hace eso ?
¿ Ejecuta el método heredado OnBeforeNavigate2 y, después, le asigna el núevo método AntesDeNavegar ?

No tiene ningun secreto.
En realidad eso es lo mismo que haces tú, cuando desde el Inspector de Objetos asignas código a un evento.



Si una vez asignado el evento, miras el DFM verás algo comno esto:



Pues si esa misma asignación la quieres hacer por código, se hace como se ve arriba. Defines el procedimiento con los parámetros correctos y se asigna con ese código.

En ese momento no estás ejecutando nada, sólo estás creando el enlace entre el evento y el procedimiento.

Un saludo.

[yapt]

Gracias Netftalí....

pero y el 'inherited' ? Eso es lo que me confunde, el inherited antes de la asignación.

Salu2...

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

En este caso David está creando un componente (TdecWebBrowser) que deriva de TWebBrowser.
Cuando desde un componente nuestro (TDecWebBrowser) queremos hacer referencia a "algo" que pertenece al componente "padre" (en este caso TWebBroser) la forma de hacerlo es utilizar el "inherited".

[dec]

Hola,

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

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

Y ahí el "inherited" está "llamando" al constructor de la clase de que desciende "TDecWebBrowser". A continuación se asigna el evento de marras, pero, lo primero no tiene que ver con lo segundo, al menos en este caso concreto.

De hecho igual quedaría más claro el asunto así:

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

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

[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 dec

Hola,

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

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

Quieres decir que he estado a punto de abandonar todo, irme de ermitaño a una cueva (que ya tenia localizada en la cara sur del pirineo), por que faltaba un ';' (punto y coma), tras el inherited ?

[yapt]

Es broma, claro... Solo necesito confirmación de que es así y ya me quedo tranquilo.

Podré, por fin, recuperar mi vida anterior... jejejejeje

Saludos.

[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.