delphi禁止webbrowser弹出窗口或者脚本错误

delphi禁止webbrowser弹出窗口或者脚本错误

webbrowser1.silent:=true; //屏蔽脚本错误

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); 
begin 
Cancel:=True; //禁止弹出窗口
end; 

出自

http://www.delphitop.com/html/kongjian/554.html

原文：http://www.cnblogs.com/yangxuming/p/7170504.html