|
Lo que hago es lo siguiente:
procedure Tpagina.WNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
If (publicidad = True) then
Cancel:= true;
Pb.EstPublicidad.Caption:= 'Publicidad desactivada, activela con el botón' ;
NuevaVentana:= True;
If (publicidad = false) then
Cancel:= false;
Pb.EstPublicidad.Caption:= 'Publicidad activada, desactivela con el botón';
end;
procedure Tpagina.WBeforeNavigate2(Sender: TObject; const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;
var Cancel: WordBool);
begin
PubDireccion:= URL;
If (NuevaVentana = True) Then
Begin
{Parametros Pagina Nueva}
Pagina:= TPagina.CreateNew(self);
Pagina.BorderStyle:= bsSizeToolWin;
Pagina.Show;
Pagina.W.Show;
{Hasta aqui funciona, Ahora con el webbrowser}
TWincontrol(w).Create(pagina);
TWinControl(w).Parent:= pagina;
end;
end;
procedure Tpagina.FormCreate(Sender: TObject);
begin
If (NuevaVentana = true) Then
W.Navigate(PubDireccion);
end;
Este el codigo que tengo escrito. pero me sigue igual he seguido vuestros consejos pero sigue igual.No se que puedo hacer
Gracias por vuestro y por ser tan pesado, es que estoy tan cerca
P.D:
Lo que quiero es que mi aplicación habra las ventanas de publicidad que abre en el internet explorer, que me las habra en la ventana de navegador que tengo en mi aplicación
|