在多页浏览器中怎样响应TWebBrowser.OnNewWindow2时间的url。

Question

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin    create you from
    ...
    ppDisp := NewForm.WebBrowser.Application'end;

Answer 1

解决如下：
procedure TfrmWebBrowser.WebBrowserNewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  NewWindow:TfrmWebBrowser;
begin
  NewWindow := TfrmWebBrowser.Create(nil);
  NewWindow.Visible := true;
  ppDisp := NewWindow.WebBrowser.Application;
end;不过有一个问题，就是在弹出 csdn.net的广告页的时候总是出现异常的现象……
如果你解决了请告知我一声，谢谢……