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