重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
部分代码如下:
成都创新互联公司是专业的义安网站建设公司,义安接单;提供网站建设、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行义安网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
在窗口及WebBrowser创建完以后,写此代码:
WebBrowser.OnNewWindow2:=IE1NewWindow2;
给主窗口创建一个方法:
procedure TBrowForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;var Cancel: WordBool);
Var NewForm:TBrowForm;
begin
try
NewForm :=TPopBrowerForm.Create(application);
NewForm.WebBrowser.OnNewWindow2 :=IE1NewWindow2;//如果在窗口的Oncreate事件
//有此代码,此处就可以省略
ppDisp := NewForm.WebBrowser.Application;
NewForm.Show;
Cancel:=false;
except
end;
end;
Private Sub WebBrowser1_DownloadBegin()
WebBrowser1.Silent = True
End Sub
WebBrowser1.Silent = True 是关闭脚本错误的弹出。在程序中加上上面代码就可以了。
捕获弹窗事件;定义新窗口;将网址打开在这个窗口里
请以【不要让webbrowser弹出新窗口 】在百度文库搜索