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

[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);