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

[[maeyanes]]

Bueno, aquí te subo una versión (que por falta de tiempo no compilé) modificada para que trabaje con un ActionList externo. Fíjate que en donde haces uso de FAcciones, primero verifico que esté asignado antes de usarlo.

También comenté las lineas donde creas y destruyes FAcciones, ya que tu componente no debería hacerlo.

Cualquier duda o comentario, será hasta mañana que te conteste...

Saludos...

[jachguate]

Primero, lamento no haber llegado antes... francamente sigo corto de tiempo.

Empezado por maeyanes

donde haces uso de FAcciones, primero verifico que esté asignado antes de usarlo.

También comenté las lineas donde creas y destruyes FAcciones, ya que tu componente no debería hacerlo.

¡¡¡Ecole!!! ¡¡Eureka!!

Este es el punto. No basta con que hagas que FAcciones sea nil cuando se libera la referencia... falta verificar, antes de usar este puntero, que apunte a algún lado, y no a nil. Es decir, cada vez que se use:

Código Delphi [-]
  if FAcciones <> nil then
    Procesar(FAcciones)
  else
    Raise Exception.Create('Error: debe asociar un componente TActionList'
      + ' antes de usar el TDecWebBrowser');

Hasta luego.

[dec]

Hola,

Aquí es donde cuadra aquello de zapatero, a tus zapatos; de no por mucho madrugar amanece más temprano; de sabe el zorro más por viejo que por zorro; de... ¡Al fin lo habéis conseguido!

Ahora todo parece funcionar correctamente, sin necesidad de ser prolijo, como lo estaba siendo yo antes. El código enviado por maeyanes (muchas gracias) me lo demostró, aunque, como alguien apuntó arriba, estaba todo dicho...

El problema estaba en no verificar que la variable "FAcciones" no fuera "nil" desde un principio,... y trataré de explicarme. Yo he pasado por hacer todo cuanto se me decía, pero, no comprendía (menudo ripio) que fuera preciso verificar que la variable "FAcciones" no fuera "nil" allá donde fuera necesario su usu.

¿Por qué digo esto? Pues porque me paraba en cierto error que se producía nada más alojar el componente en el formulario: sin que pudiera hacerse nada más, ni siquiera asignar un componente "TActionList". ¿Cómo iba a pensar que fuera necesario verificar algo que se sabe a ciencia cierta no existe todavía?

Pues así parece ser, en este caso: no he hecho muchas pruebas, pero, desde luego, ahora, gracias a vosotros (pues que si no el componente se hubiera quedado en una barbaridad por los siglos de los siglos, amén) el componente funciona y eso es, básicamente, lo que se ha cambiado: ahora se verifica que exista una referencia en "FAcciones" antes de hacer uso de dicha variable.

En fin. Casi 50 mensajes para este Hilo no están nada mal... probablemente debí de haber cogido el Hilo del asunto muy antes, pero, no fue así, probablemente porque al encontrar YO (mi tesoro) una solución (MALÍSIMA) me cerré demasiado en ella, que todo hay que decirlo, aunque esta vez se sepa.

Lo dicho, gracias a todos de nuevo. De verdad.

[roman]

Una última cosa. Esto seguro es un error de dedo. En el código que tienes en tu página (lo acabo de bajar), en el método ComprobarEnlaces, donde dice

if not Assigned(FAcciones) then

creo que debe decir

if Assigned(FAcciones) then

// Saludos

[roman]

Ya sé que era la última cosa pero es justo decir lo siguiente.

Durante todo el hilo mi mente se enfocó en algunas partes puntuales pero la verdad no tenía claro cuál era el funcionamiento de la componente de David.

Finalmente he logrado ejecutar el ejemplo y puedo decir que me ha parecido una idea muy interesante y original.

// Saludos

[[maeyanes]]

Empezado por roman

Una última cosa. Esto seguro es un error de dedo. En el código que tienes en tu página (lo acabo de bajar), en el método ComprobarEnlaces, donde dice

if not Assigned(FAcciones) then

creo que debe decir

if Assigned(FAcciones) then

// Saludos

Lo más seguro, y también es seguro que viene de lo que yo hice, ya que fue hecho a unos minutos de que me retirara del trabajo, y como mencioné, no lo pude compilar y probar para verificarlo...


Saludos...

[dec]

Hola,

Empezado por roman

Una última cosa. Esto seguro es un error de dedo. En el código que tienes en tu página (lo acabo de bajar), en el método ComprobarEnlaces, donde dice

Código Delphi [-]
  if not Assigned(FAcciones) then

creo que debe decir

Código Delphi [-]
  if Assigned(FAcciones) then

Así es la verdad. Ya lo he corregido y he vuelto a actualizar el componente. Se me pasó.

Empezado por maeyanes

Lo más seguro, y también es seguro que viene de lo que yo hice, ya que fue hecho a unos minutos de que me retirara del trabajo, y como mencioné, no lo pude compilar y probar para verificarlo...

Sí; ya lo creo que así. Copiar y pegar es lo que tiene, sobre todo a ciertas horas.

Empezado por roman

Ya sé que era la última cosa pero es justo decir lo siguiente.

Durante todo el hilo mi mente se enfocó en algunas partes puntuales pero la verdad no tenía claro cuál era el funcionamiento de la componente de David.

Finalmente he logrado ejecutar el ejemplo y puedo decir que me ha parecido una idea muy interesante y original.

Bueno, roman, pues me alegro de que te parezca curioso el asunto: puedes hacer uso de la idea y del componente y/o de su código para lo que te apetezca. Yo mismo recogí la idea de "HTML Application Demo", un ejemplo curioso que tenía guardado hace tiempo y que hube descargar de DelphiBox, si el "readme.txt" no me engaña...

Lo adjunto aquí según yo lo tengo guardado, por si quiere alguien echarle un vistazo. Gracias a todos otra vez.