在线等待，马上解决，入者有分

Question

自己做了一个非常简单的浏览器。webbrowser，运行错误。猜测是：
浏览网站时如果有弹出窗口的问题，那么提示当前页的脚本发生错误
行854 字符3 代码0或者也有可能是不支持什么js，active等。帮忙解决一下。是不是有什么代码我没有输入阿。请问怎么解决？？？？？？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.text:='http://www.csdn.net';
form1.visible:=false;
gauge1.parent:=statusbar1;
gauge1.width:=StatusBar1.Panels[0].Width-2;
gauge1.Height:=StatusBar1.ClientHeight-2;
gauge1.top:=2;
gauge1.left:=1;
end;procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
gauge1.maxvalue:=progressmax;
gauge1.progress:=progress;
end;procedure TForm1.ToolButton2Click(Sender: TObject);
begin
webbrowser1.Navigate(combobox1.text);
end;procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=(Sender as TWebBrowser).DefaultInterface;
end;procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
webbrowser1.Navigate(combobox1.text);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.release;
form2.Close;
end;end.

Answer 2

form2.Close;   ????小弟不才，学习中......

Answer 3

ppDisp:=(Sender as TWebBrowser).DefaultInterface;好象这的问题吧，你再加一个webbrowserppDisp := WebBrowser2.Application;这样来调试一下，如果是脚本错误，可以silent设置为true来屏蔽

Answer 4

这句不能这样写
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=(Sender as TWebBrowser).DefaultInterface;
end;请参考
http://expert.csdn.net/Expert/topic/2106/2106304.xml?temp=.1844446