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 ?