Delphi TWebBrowser[10] 防止弹出新窗口的几个方法

Delphi TWebBrowser[10] 防止弹出新窗口的几个方法

1、方法1

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

uses MsHTML;   WebBrowser1.Silent:=True;  //可以防止弹出“语法错误”的窗口。   procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;   var Cancel: WordBool); begin   Cancel := True;    //可以阻止<a href='url' target='_blank'>方式的新窗口 end;   procedure TForm1.WebBrowser1NavigateComplete2(ASender: TObject;   //阻止Javascript脚本弹出的新窗口   const pDisp: IDispatch; var URL: OleVariant); begin   ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.open=function(){return true}','JavaScript'); //禁止使用open方式弹出的窗口   ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.alert=function(){return true}','JavaScript'); //禁止使用alert方式弹出的对话框   ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.showModalDialog=function(){return true}','JavaScript'); //禁止使用showModalDialog方式弹出的窗口   ((aSender as TWebBrowser).Document as IHTMLDocument2).parentWindow.execScript('window.showModelessDialog=function(){return true}','JavaScript'); //禁止使用showModelessDialog方式弹出的对话框 end;

方法2：（使用分析：部分网页吗，使用了定时器，每过一段时间刷新一下网页）

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//原理：用其他页面先加载，然后跳转到主页面 procedure TForm1.FormCreate(Sender: TObject); begin   WebBrowser2.Navigate('about:blank');   //最好在创建时候要先执行一次初始化，以免错误 ，可以将WebBrowser2先隐藏 end;   procedure TForm1.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;   //响应主浏览器的OnNewWindow2事件   var Cancel: WordBool); begin   ppDisp := WebBrowser2.Application; //将弹出的网页放到WebBrowser2中去加载   Cancel := False;         //先不拦截弹窗 end;   procedure TForm1.WbNoAdBeforeNavigate2(ASender: TObject; const pDisp: IDispatch;    //响应WbNoAd的OnBeforeNavigate2事件   var URL, Flags, TargetFrameName, PostData, Headers: OleVariant;   var Cancel: WordBool); begin   if URL <> 'about:blank' then     Cancel := True;         //窗口弹到这里来拦截， end;

　　

 

 

创建时间：2020.11.23　　更新时间：