Question

在我用delphi7.0编写简单网页浏览器时。运行时出现：（见截图），求高手解答！

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;
procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
form1.Caption:=edit1.Text;
statusbar1.Panels[0].Text:='正在连接地址：'+edit1.Text ;
end;
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
form1.Caption:=webbrowser1.LocationURL;
statusbar1.Panels[0].Text:='完成'+webbrowser1.LocationURL;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
webbrowser1.GoHome;
edit1.Text:='about:blank';
end;
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
webbrowser1.Stop;
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;
end.

Answer 1

索引越界了
你是在做什么动作的时候抛出的错误？ 是不是做什么页面向前向后跳转？ 还是自己定义的数组判断错误抛出的异常？
挺长时间没碰这个东东的。对于不熟悉的组件建议稍微了解一下属性和常用方法。不行的话把出错代码贴出来看看。或是自己单步调试下？

Answer 2

statusbar1.Panels[0].Text:='正在连接地址：'+edit1.Text ;

你的Statusbar控件添加Panel了吗?
应该是没有添加的原因!
点右键添加一个Panel就可以了!