Ver Mensaje Individual
  #3  
Antiguo 25-07-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.437
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
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;

  ...
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita