![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
||||
|
||||
|
¡Hola a todos!
Vaya hilo. Se mezcló lo del TActionList con lo de agregar comportamiento relacionado con un evento a una clase descendiente. Me resultó un poco difícil leerlo, porque las muestras de código tienen líneas demasiado largas para una resolución de 800X600. Dec: Te aconsejo que optes por la recomendación de Román respecto al método virtual InvokeEvent. Verás, la óptica es esta: Si existe un método virtual que llama directa o indirectamente a un manejador de evento, lo mejor es tratar de redefinir ese método y agregar ahí la nueva funcionalidad relacionada con el evento. Si por alguna razón (técnica o lógica) prefieres redefinir la propiedad evento, ten en cuenta lo siguiente: 1. No necesitas usar Load. 2. Puedes redeclarar la propiedad evento en la nueva clase y con el mismo nombre para ocultar la propiedad padre ante el inspector de objetos, guardando la nueva propiedad en un nuevo campo. 3. Desde el método que asignes internamente a la propiedad oculta puedes llamar al nuevo evento. 4. Si la propiedad original no está definida con métodos de acceso virtuales, tu componente tendrá el riesgo que señala Andrés, al hacer referencias polimórficas (se operará sobre la propiedad padre, no la nueva). Espero esto sea de utilidad. Un abrazo orientado a objetos. Al González. ![]()
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas. Última edición por Al González fecha: 31-01-2010 a las 05:23:23. Razón: Era InvokeEvent, no Invoke. :) |
|
#2
|
||||
|
||||
|
...Con respecto al uso abreviado de Inherited, hace algún tiempo que lo desacostumbré porque imposibilita usar la opción Find Declaration para ir rápidamente al código del método heredado.
Un abrazo complementario. Al González. ![]()
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas. |
|
#3
|
|||||
|
|||||
|
Hola,
Cita:
![]() Cita:
![]() Cita:
![]() Cita:
Cita:
![]() Un abrazo y medio. |
|
#4
|
||||
|
||||
|
¡Hola de nuevo!
Después de cuatro años. ![]() Vine a parar a este hilo buscando en Google ejemplos de clases derivadas de TWebBrowser que redefinieran el método InvokeEvent. He estado inclinado a redefinir ese método para añadir comportamiento a los eventos OnNavigateComplete2 y OnDocumentComplete. Después de haber echado un nuevo vistazo al tema, reafirmo mi intención de redefinir a InvokeEvent. Fue la propuesta que puntualmente hizo Román en aquel entonces para el planteamiento de Dec. La razón para interceptar esos eventos es dotar al componente de la capacidad de saber cuándo realmente ha terminado de navegar, pues las propiedades Busy y ReadyState me cuentan "mentiras" con ciertas páginas. Haciendo algunas pruebas, he notado que ReadyState puede alcanzar un valor de ReadyState_Complete antes de que varios elementos de la página estén presentes, mientras que el evento OnDocumentComplete sí que tiene la última palabra (se dispara por última vez cuando tales elementos ya están disponibles). Saludos. Al González. ![]() P.D. David, ignoro si aún tienes aquella última duda que planteabas. Andrés, amigo, me resultó grato leerte nuevamente.
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas. |
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|