Как перехватить событие родительского компонента?

[postal2]

Пишу свой компонент на основе TEmbeddedWB (можно прировнять к TWebbrowser), необходимо перехватить событие OnProgressChange (сначала выполнить свой код, потом передать управление обратно в onprogresschange браузера), как это сделать?

[alexBlack]

так:

type
   TMyBrowser = class(TWebBrowser)
   private
      FMyProgressChange: TWebBrowser_V1ProgressChange;
   protected
      procedure innerProgressChange(ASender: TObject; Progress: Integer; ProgressMax: Integer);
   published
      property OnProgressChange: TWebBrowser_V1ProgressChange read FMyProgressChange write FMyProgressChange;
   public
      constructor Create(aOwner:TComponent); override;
   end;

constructor TMyBrowser.Create(aOwner:TComponent);
begin
   inherited Create(aOwner);
   inherited OnProgressChange := innerProgressChange;
end;

procedure TMyBrowser.innerProgressChange(ASender: TObject; Progress: Integer; ProgressMax: Integer);
begin
   // наш код
   if Assigned(FMyProgressChange) then
      FMyProgressChange(aSender, Progress, ProgressMax);
end;

или так:

type
   TMyBrowser = class(TWebBrowser)
   protected
      procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;
   end;

procedure TMyBrowser.InvokeEvent(DispID: TDispID; var Params: TDispParams);
begin
  case DispID of
    108: begin
               // наш код
         end;
  end;
  inherited InvokeEvent(DispID, Params);
end;

// Оба примера только на основе анализа кода. Ни TWebBrowser ни TEmbeddedWB использовать не приходилось.

[postal2]

Ругается

    FMyProgressChange: TWebBrowser_V1ProgressChange;

[Error] Unit.pas(75): Undeclared identifier: 'TWebBrowser_V1ProgressChange'

Во втором ругается

 procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;

на [Error] Unit.pas(91): Undeclared identifier: 'TDispID'
и [Error] Unit.pas(91): Undeclared identifier: 'TDispParams'

и здесь на несоответствие параметров

 inherited InvokeEvent(DispID, Params);

[Error] Unit.pas(6018): Types of actual and formal var parameters must be identical

[alexBlack]

Сообщение от postal2

Ругается

    FMyProgressChange: TWebBrowser_V1ProgressChange;

[Error] Unit.pas(75): Undeclared identifier: 'TWebBrowser_V1ProgressChange'

uses SHDocVw
или SHDocVw_EWB в Вашем случае. И посмотрите какой тип у OnProgressChange в Вашем компоненте. Скорее всего TEWB_V1ProgressChange. В примере наследование от TWebBrowser.

Во втором ругается

 procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;

на [Error] Unit.pas(91): Undeclared identifier: 'TDispID'
и [Error] Unit.pas(91): Undeclared identifier: 'TDispParams'

и здесь на несоответствие параметров

 inherited InvokeEvent(DispID, Params);

[Error] Unit.pas(6018): Types of actual and formal var parameters must be identical

TDispID и TDispParam описаны в ActiveX, несоответсвие типов скорее всего из-за другого описания метода в Вашем классе.

м.б.:
procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray);