Ver Mensaje Individual
  #5  
Antiguo 30-09-2005
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Lo que puedes hacer es crear unos campos privados en tu componente, del mismo tipo que los eventos que necesitas. Por ejemplo, el OnActivate:
Código Delphi [-]
private
  FOldOnActivate: TNotifyEvent;
Entonces al crear el formulario haces algo como:
Código Delphi [-]
FOldOnActivate := Explorador.OnActivate;
Explorador.OnActivate:= Activate;

Y en el método activate haces:
Código Delphi [-]
procedure TDBexplorer.Activate(Sender: TObject);
begin
  if Assigned(Explorador) then
  begin
    if Assigned(FOldOnActivate) 
      FOldOnActivate(Sender);
    // El código que debe ejecutar tu componente...
  end
end;

Lo que se hace aquí, es guardar el antigüo manejador de evento, y luego, si este estaba asignado, hacer la llamada...


Espero que esto te ayude a solucionar tu problema...


Saludos...

Última edición por maeyanes fecha: 30-09-2005 a las 22:04:41.
Responder Con Cita