Override eventos On...

[[maeyanes]]

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...