Webbrowser新開窗口事件

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
   var ppDisp: IDispatch; var Cancel: WordBool);
var
   NewWindow: TForm2;
begin
   //exit;
   NewWindow:= TForm2.Create(nil);
   NewWindow.Show;
   ppDisp:= NewWindow.Webbrowser1.DefaultDispatch;
end;   值得一題的是該方法不能獲得新開窗口的URL,退一步的方法只能是等到在新的Webbrowser中觸發BeforeNavigate2事件判斷了