Extender funcionalidad evento

[kamuspik]

Hola, revisando un poco de bibliografía he conseguido dar con lo que me interesaba. Lo pongo a continuación por si le sirve a alguien.

Código Delphi [-]
type
  TMiDataSource = class(TDataSource)
  private

    procedure MiDataSourceOnDataChange (Sender: TObject; Field: TField);
  protected

  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
  end;

procedure Register;

implementation


procedure Register;
begin
  RegisterComponents('Componentes', [TMiDataSource]);
end;

constructor TMiDataSource.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  Self.OnDataChange := TMiDataSourceOnDataChange;  //instrucción necesaria para redefinir el evento OnDataChange

end;

destructor TMiDataSource.Destroy;
begin

  inherited destroy;
end;


procedure TMiDataSource.MiDataSourceOnDataChange (Sender: TObject; Field: TField);
begin
    ShowMessage('¡Entro aquí!');

    ....... //Codigo que extiende el comportamiento del evento

    inherited;  //instrucción que mantiene el comportamiento original

end;

end.

Un saludo.