webbrowser+pagecontrol 编写多窗口浏览器，动态生成 tabsheet 和 webbrowser,如果访问 www.163.com 类似有弹出广告窗口的站点，弹出窗口显示在动态生成的一个新的 tabsheet 中的 webbrowser 时），这时，在这个弹出窗口中再用 webbrowser 的 Navigate 方法就无法再 navigate 到新的页面,不知如何解决。    注：NewWindow2 事件代码如下：

procedure TFrmMain.WebBrowserNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
tab:=Ttabsheet.Create(nil);
tab.PageControl:=pagecontrol2;
tab.Parent:=pagecontrol2;
tab.Caption:='空白页;
tab.Name:='tab' inttostr(tabi 1);
pagecontrol2.ActivePage:=tab;    web:=Twebbrowser.Create(nil);
TWinControl(web).parent:=pagecontrol2.ActivePage;
TWinControl(web).Name:='web' inttostr(tabi 1);    web.OnNewWindow2:=WBNewWindow2;
web.OnTitleChange:=WBTitleChange;
web.OnStatusTextChange:=WBStatusTextChange;
web.OnProgressChange:=WBProgressChange;
web.OnBeforeNavigate2:=WEBrowserBeforeNavigate2;    //web.OnDocumentComplete:=WBDocumentComplete;
//不知为何，这里使用了 DocumentComplete 事件也会出错。
//web.OnCommandStateChange:=WBCommandStateChange;    web.Align := alClient;
tabi:=tabi 1;//tabi 在form.create中赋值为 1
ppdisp:=nil;
ppdisp:=web.Application;    //ppdisp:=web.DefaultDispatch;
end;

發表人 - sinboo 於 2005/11/09 23:57:24

上述的問題我已經在大富翁中提齣，問題的關鍵是在新的窗口的彈齣窗口該如何處理，若新的窗體中有關閉瀏覽器的代碼，整個程序就會一直報錯，這個該如何的處理。。。。。。 富翁論壇的主題貼是：

DocumentComplete 事件会出错 的问题我已经解决了，其实这个不应该是个问题，只是我在DocumentComplete 事件中用到了静态创建的那个WebBrowser，当这个窗口被关闭后，当然就会出错了，晕。。。 1259shiyong 说到的在大富翁的贴子，我也看到了，问题一模一样啊，不过比我早多了，想不到这个问题困惑了我们这么久啊。。。

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.