<p>procedure TFrm_main.web1NewWindow3(ASender: TObject; var ppDisp: IDispatch;<br />&nbsp; var Cancel: WordBool; dwFlags: Cardinal; const bstrUrlContext,<br />&nbsp; bstrUrl: WideString);<br />begin<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Cancel:=True;<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; showmessage(bstrUrl);&nbsp; //显示弹出窗口的URL<br />end;</p> <p>两条语解决大问题，可以阻止WebBrower弹出新窗口，显示新窗口的URL地址，获取到弹出窗口的URL地址后，就可以在当前窗口里浏览弹窗的网址了。<img class="Smile" title="13" src="/include/editor/editor/images/smiles/13.gif" alt="13" width="24" height="24" /></p>