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

[[maeyanes]]

Creo que más bien le falta indicarle al TActionList que le notifique al componente TDecBrowser cuando se está destruyendo, esto se haría de la siguiente forma:

Código Delphi [-]
procedure TDecBrowser.SetActionList(Value: TActionList);
begin
  if FActionList <> Value then
  begin
    FActionList := Value;
    if Assigned(Value) then
      Value.FreeNotification(Self)
  end
end;

Ya con eso desde el Notification puedes eliminar la referencia al TActionList cuando este se destruya:

Código Delphi [-]
procedure TDecBrowser.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  if (Operation = opRemove) and (AComponent = FActionList) then
    FActionList := nil
end;

Saludos...

[roman]

Empezado por maeyanes

Creo que más bien le falta indicarle al TActionList que le notifique al componente TDecBrowser cuando se está destruyendo

¡Exacto! A eso me refería con "agregar la notificación". Y ésta es justo la manera en que se hace con el PopupMenu y otras propiedades similares.

// Saludos

[andres1569]

Hola,

una cosita, hay que poner la llamada al método Notification del ancestro, que se encarga de liberar la referencia a nuestro componente de la lista de componentes ligados (FFreeNotifies).

Código Delphi [-]
procedure TDecBrowser.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation); 
  if (Operation = opRemove) and (AComponent = FActionList) then
    FActionList := nil
end;

[dec]

Hola,

Empezado por Andrés

una cosita, hay que poner la llamada al método Notification del ancestro, que se encarga de liberar la referencia a nuestro componente de la lista de componentes ligados (FFreeNotifies).

Código Delphi [-]
 procedure TDecBrowser.Notification(AComponent: TComponent;
   Operation: TOperation);
 begin
   inherited Notification(AComponent, Operation);
   if (Operation = opRemove) and (AComponent = FActionList) then
     FActionList := nil
 end

Bueno. Lo cierto es que suelo hacerlo así como dices Andrés, empero, ¿no es igualmente válido utilizar, digamos, la abreviatura, tal como se ve abajo? Yo diría que así es, aunque no fundamentado en letra impresa, sino en la poca experiencia que tengo en estas lides.

Código Delphi [-]
 // Notificaciones al componente.
 //
 procedure TDecBrowser.Notification(Component: TComponent;
   Operation: TOperation);
 begin
   inherited;
   if (Operation = opRemove)
     and (Component = FAcciones) then
       FAcciones := nil
 end;

[roman]

Empezado por dec

Yo diría que así es, aunque no fundamentado en letra impresa

Y bien fundamentado que está:

Empezado por ayuda de Delphi SIETE

When inherited has no identifier after it, it refers to the inherited method with the same name as the enclosing method or, if the enclosing method is a message handler, to the inherited message handler for the same message. In this case, inherited takes no explicit parameters, but passes to the inherited method the same parameters with which the enclosing method was called.

Enfatizo el siete ya que en versiones antiguas creo recordar que sí había que pasar todos los parámetros. No sé qué versión usa Andrés

// Saludos

[andres1569]

Empezado por roman

Enfatizo el siete ya que en versiones antiguas creo recordar que sí había que pasar todos los parámetros. No sé qué versión usa Andrés

Enfatizo el CUATRO, EL CINCO Y EL SEIS, tampoco sé si había dicha forma de abreviar en versiones anteriores.

[dec]

Hola,

Empezado por roman

Y bien fundamentado que está:

Así es la verdad. Diré en mi favor que estoy un poco liado ahora mismo con TXEditor, ayuda a la traducción del programa XEditor, y que por eso no me cercioré en la ayuda sobre el asunto.

[jachguate]

Empezado por roman

Enfatizo el siete ya que en versiones antiguas creo recordar que sí había que pasar todos los parámetros. No sé qué versión usa Andrés

Puedo dar fe que al menos desde delphi 3 no es necesario, y creo recordar que es una característica incluida en el propio delphi 1.

De mi (mala) memoria, podría afirmar que en Turbo Pascal 7, si que había que pasar los parámetros. En turbo pascal 6 no existía inherited, y por consiguiente había que llamar al método de la clase padre por nombre y apellidos, por supuesto, pasando los parámetros).

Hasta luego.

[andres1569]

Empezado por dec

Bueno. Lo cierto es que suelo hacerlo así como dices Andrés, empero, ¿no es igualmente válido utilizar, digamos, la abreviatura, tal como se ve abajo?

Sí. Y además está documentado.