使用Twebbrowser遇到的问题!!(20分)

当我们点击webbrowser里面的内容是,应怎样才能是弹出的新窗口仍然使用自己的浏览器,<br>不使用电脑自带的&gt; 谢谢大家了

TWebBrowser事件OnNewWindow2<br><br>ppDisp := TWebBrowser(Sender).Application;

谢谢你!有一点错误,呵呵

procedure TForm1.wb1NewWindow2(Sender: TObject; var ppDisp: IDispatch;<br> &nbsp;var Cancel: WordBool);<br>var FormNew: TForm1;<br>begin<br> &nbsp; &nbsp;FormNew := TForm1.Create(self);<br> &nbsp; &nbsp;with FormNew do<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;wb1.RegisterAsBrowser := true;.//默认浏览器<br> &nbsp; &nbsp; &nbsp;ppDisp := wb1.Application;<br> &nbsp; &nbsp;end;<br> &nbsp; &nbsp;FormNew.Show;<br>end;