No sé, no sé. A mi como que me da más algo del estilo:
Código Delphi
[-]
unit DecBrowser;
interface
uses
OleCtrls, SHDocVw, ActiveX;
type
TDecBrowser = class(TWebBrowser)
protected
procedure InvokeEvent(DispID: TDispID; var Params: TDispParams); override;
end;
implementation
procedure TDecBrowser.InvokeEvent(DispID: TDispID; var Params: TDispParams);
begin
inherited;
if DispId = 250 then begin
end;
end;
end.
Si
inherited se llama antes o después ya dependerá de tus necesidades específicas.
// Saludos