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

[dec]

Hola,

Lo he podido solucionar (de momento, al menos, parece funcionar bien, no se produce el error antes mencionado y el componente va también bien en tiempo de ejecución) sobreescribiendo el método "Notification" de "TComponent".

Primeramente creo una variable privada "FAcciones" de tipo "TCustomActionList". Luego una propiedad "Acciones" del mismo tipo, y que va a leer y a escribirse en "FAcciones". En el constructor del componente hago lo siguiente:

Código Delphi [-]
 // Se crea este componente.
 //
 constructor TDecBrowser.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   FEnlaces := TStringList.Create;
   FAcciones := TActionList.Create(Forms.Application);
   inherited OnBeforeNavigate2 := ComprobarEnlaces;
 end;

Creo la instancia de "TActionList" en "Application", porque, de no hacerlo así, de hacerlo en "Self" (el propio componente) en el "inspector de objetos" de Delphi la propiedad no queda muy bien al comienzo. Puede verse. No es el caso ahora.

En el destructor del componente libero la variable "FAcciones" sin problemas, tal que así:

Código Delphi [-]
 // Se destruye este componente.
 //
 destructor TDecBrowser.Destroy;
 begin
   FEnlaces.Free;
   FAcciones.Free;
   inherited Destroy;
 end;

Y el quid de la solución está en el método "Notification", como queda dicho, sobreescrito para que quede de este modo:

Código Delphi [-]
 // Notificaciones al componente.
 //
 procedure TDecBrowser.Notification(Component: TComponent;
   Operation: TOperation);
 begin
   inherited;
   if (csDesigning in ComponentState) then
   begin
     if (Operation = opRemove) then
     begin
       if (Component = FAcciones) then
       begin
         FAcciones.RemoveFreeNotification(Self);
         FAcciones := TCustomActionList.Create(Forms.Application);
       end;
     end;
   end;
 end;

A lo mejor es una burrada. Lo que estoy haciendo es comprobar que el componente que se quita de mi componente, valga la redundancia, es "FAcciones", si es así notifico su eliminación al IDE de Delphi (supongo algo así, no estoy muy puesto, para qué nos vamos a engañar) y a continuación creo de nuevo una instancia de "FAcciones", por si el usuario quiere añadir de nuevo un componente "TActionList".

Eso era lo que se apreciaba antes con error: al quitar el "TActionList" del componente "DecBrowser" en tiempo de diseño podía verse junto con el mensaje de error (Access violation, Abstract error...) cómo "desaparecía" la propiedad "Acciones" del "inspector de objetos"...

En fin. No sé qué tal la solución. Ahora revisaré cuanto dice Lepe, pues seguro será interesante. Ya podéis descargar, por cierto, el componente actualizado en mi página Web personal: dec.clubdelphi.com.

[dec]

Hola,

He probado lo que sugieres Lepe, pero, o bien no llegué a hacerlo del todo como se debe, o, en cualquier caso, no podía hacerlo: no podía ni ubicar siquiera el componente en el formulario: ¿Violación de acceso? Ahora mismo no recuerdo el problema en concreto...

He preparado (*) una demostración de que el componente funciona como se espera, más o menos, tanto en tiempo de diseño como en ejecución, si bien se mira. Es algo pesado (como 1 MB) pero con las conexiones que tenéis de 100 MB debe ser pan comido para vosotros.

Demostración del componente DecBrowser (formato Flash, 1 MB apróx.)

(*) Con la ayuda del programa Wink, estupendo, por otro lado, hay que decirlo.

[jachguate]

Dec: Es la primera vez que leo este hilo, aún cuando lo visité alguna vez en la semana, no contaba con el tiempo para revisarlo completo. Lo que no termino de entender es, para que creas una instancia de TActionList, si al parecer, luego le asignarás un puntero a la propiedad, a otro TActionList, creado, manejado y destruido por la forma (o por un tercero).

Si lo único que se necesita es mantener una referencia a un ActionList, no hará falta crear o destruir uno al momento de crear/destruir la instancia de TDecWebBrowser y si el mecanismo de notificación que ya has implementado, que es la manera estándar de "desconectar" componentes con relaciones horizontales.

Si por el contrario, es tu WebBrowser quien crea la lista de acciones, no hará falta notificar, pues será el propio componente el que se encargue de crearla/destruirla, y el usuario del componente, cuando mucho, podrá añadir/eliminar elementos a este ActionList. Si ese es el caso, entonces proteges el miembro de la clase con métodos de asignación de la propiedad:

Código Delphi [-]
property Acciones : TActionList read FAcciones write SetAcciones;
...

procedure TDecWebBrowser.SetAcciones(value : TActionList);

begin
  //no hacemos que nuestro miembro apunte a value, lo "procesamos"
  //de otra forma, sea asignandolo directamente, copiando las acciones, 
  //o de la manera que convenga a nuestros intereses.
  FAcciones.Assign(value);
end;

Hasta luego.