Cómo codificar en el evento (incluso asignado) de un componente

[andres1569]

Empezado por dec

Tengo un problema, o, por mejor decir, una inquietud, puesto que no sé si resolviendo esta se creará aquél.

Frase para la historia,

Bueno, el problema que se te plantea se resolvería adecuadamente si tuvieras acceso al método supuestamente protegido y supuestamente llamado DoBeforeNavigate o algo así, virtual claro, que no sé si existe. Como supongo que ya lo has buscado y no has encontrado nada parecido, lo único que se me ocurre es un pequeño truco, que no evita que se pueda machacar tu evento en tiempo de ejecución, pero que quizás en la práctica resulte suficiente (si vas a utilizar tú el componente, no es problema pues sabes lo que no debes hacer, si es un componente para terceros tendrá una puerta trasera donde puedan machacar tu código de forma involuntaria):

Sobrescribes el método Loaded, y ahí almacenas en una variable del tipo adecuado el evento que haya sido fijado en tiempo de diseño:

Código Delphi [-]
procedure TDecWebBrowser.Loaded;
begin
  inherited Loaded;
  EventoAnterior := OnBeforeActivate2;
  OnBeforeActivate2 := AntesDeNavegar;
end;

En el método AntesDeNavegar haces una llamada a EventoAnterior, claro.

Bueno, es algo chapucilla, pero puede servirte.

Saludos

[dec]

Hola,

Gracias a ambos por responder, en primer lugar. Tomando la manera que dice Lepe, queda algo pendiente y es que no se acaba de quitar del "inspector de objetos" el evento "OnBeforeNavigate2", aun cuando lo declaro como una propiedad privada con el fin de ocultarlo, precisamente,... ¿qué estoy olvidando?

Es decir, el tema parece ir bien, pero, ahora en el "inspector de objetos" tengo dos eventos "OnBeforeNavigate" (que yo preparo en el componente) y "OnBeforeNavigate2" (que ya incorpora el componente de que heredo, y acaso sería bien ocultar)... Además, si el usuario asigna algún método a este último evento, adiós al primero... claro está... ¿Cómo oculto, pues, el evento "OnBeforeNavigate2"?

Gracias de nuevo a ambos. El componente no es ninguna maravilla, pero, si llego a darle cabo, más o menos, ya sabéis que lo incluiré en DecComp. Gracias otra vez.