Sobrescribir un evento y ejecutar también el que estaba previamente

[Neftali [Germán.Estévez]]

Empezado por Piratta

Esta propiedad se asigna a mano antes de utilizar el navegador, de manera que apunte a un TDataSource ya existente (bien en un TDataModule o bien en la misma ficha donde esté el TFrame).

Guarda un apuntador conel posible evento que ya esté asignado, antes de asignar el tuyo. Luego cuando vayas a ejecutar tu evento preguntas si el anterior estaba asignado y en ese caso usas el apuntador para ejecutarlo...

Código Delphi [-]
  // Apuntador al evento existente
  OldActiveDataSet := TMyDataSet(Self.DataSource).OnActive;
  // Reasigno el evento
  TMyDataSet(Self.DataSource).OnActive := _OnActiveDataSet;

Luego cuando ejecutes el tuyo deberás hacer:

Código Delphi [-]
  ...
  // Asignado?
  if Assigned(OldActiveDataSet) then
    OldActiveDataSet(parametros_segun_tipo);
  end;

  ...

[Piratta]

Empezado por Neftali

// Apuntador al evento existente
// ¿¿ de qué tipo es OldActiveDataSet ??
OldActiveDataSet := TMyDataSet(Self.DataSource).OnActive;

Aunque lo haces sobre un evento de un DataSet en vez de sobre un DataSource, capto la idea.
El único detalle que me queda es cómo declaro la variable que tú llamas OldActiveDataSet. La otra (_OnActiveDataSet) es el nombre del procedimiento que tengo.

[Neftali [Germán.Estévez]]

Empezado por Piratta

Aunque lo haces sobre un evento de un DataSet en vez de sobre un DataSource, capto la idea.
El único detalle que me queda es cómo declaro la variable que tú llamas OldActiveDataSet. La otra (_OnActiveDataSet) es el nombre del procedimiento que tengo.

Sí, perdona; Escribí rápido y no revisé los detalles; Como tú bien dices lo importante es la idea; Dejar un apuntadr a la anterior, antes de asignar la nueva;
Para la declaración puedes coger de muestra la cabecera del evento que estás redeclarando; El procedimiento debe tener los mismos parámetros para que puedes asignarlo.

Por ejemplo si estás "sobreescribiendo" el evento OnDataChange (por decir uno) que está definido así:

Código Delphi [-]
type TDataChangeEvent = procedure(Sender: TObject; Field: TField) of object;
property OnDataChange: TDataChangeEvent;

Pues la definición de tu procedimiento _MyOnDataChange/OldDataChange será:

Código Delphi [-]
procedure MyOnDataChange(Sender: TObject; Field: TField);