Cita:
Empezado por Lepe
Se supone, que el evento OnBeforeNavigate2 es del propio TWebBrower, entonces, tu componente ha de quitarlo de la zona published. Simplemente declarandolo en tu componente en la zona Private.
|
Pues no se puede disminuir los privilegios !!!!
En la mayoria de los casos se debe ir una clase mas arriba, antes que se haga publico la propiedad, pero en este caso no tienes una clase más arriba que te sirva.
La opción que te queda es sobreescribir la propiedad.
Aca te hice un ejemplo de como sería:
Código Delphi
[-]
type
TDecWebBrowser = class (TWebBrowser)
private
FOnBeforeNavigate2: TWebBrowserBeforeNavigate2;
procedure AntesDeNavegar(parametros: TParams);
public
constructor Create(AOwner: TComponent); override;
published
property OnBeforeNavigate2: TWebBrowserBeforeNavigate2 read FOnBeforeNavigate2 write FOnBeforeNavigate2;
end;
implementation
constructor TDecWebBrowser.Create(AOwner: TComponent);
begin
inherited;
inherited OnBeforeNavigate2 := AntesDeNavegar;
end;
procedure TDecWebBrowser.AntesDeNavegar(parametros: TParams);
begin
FOnBeforeNavigate2();
end;
creo que con esto debería funcionar sin problemas
Suerte