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;

  ...