大家好，我是考100分的小小码 ，祝大家学习进步，加薪顺利呀。今天说一说用Delphi做简单的网页浏览器[通俗易懂],希望您对编程的造诣更进一步.
1，在internet中找到webbrowers
2,拖到窗体上。
3，该组件常用方法有
Navigate 浏览
stop 停止
gohome 主页
goback 后退
goforward 前进
这些都是访问网站常用的几个动作
4，设置界面
![用Delphi做简单的网页浏览器[通俗易懂]](https://img.mushiming.top/app/daima100_com/1d0136e2e9444f8a990ed84b24a66e36.jpg?_iz=58558&from=article.pc_detail&x-expires=1688148934&x-signature=koor0V1Uljzn4mqis7vi0%2FtZ7Yk%3D "用Delphi做简单的网页浏览器[通俗易懂]插图")
![用Delphi做简单的网页浏览器[通俗易懂]](/wp-content/themes/justnews/themer/assets/images/lazy.png "用Delphi做简单的网页浏览器[通俗易懂]插图1")
![用Delphi做简单的网页浏览器[通俗易懂]](https://img.mushiming.top/app/daima100_com/b004771ca5ae4724b3ff13ee68614858.jpg?_iz=58558&from=article.pc_detail&x-expires=1688148934&x-signature=pRxXBjYoq93uDxQBitonWe4qXoA%3D "用Delphi做简单的网页浏览器[通俗易懂]插图2")
5，输入代码如下：
procedure TForm1.btn7Click(Sender: TObject);
begin
wb1.Navigate(edt1.Text); //浏览
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
try
wb1.GoBack;//后退
except
ShowMessage(‘已经达到最早记录’);
Exit;
end;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
wb1.GoForward;//前进
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
wb1.Stop;//停止
end;
procedure TForm1.btn4Click(Sender: TObject);
begin
wb1.Refresh;//刷新
end;
procedure TForm1.btn5Click(Sender: TObject);
begin
wb1.GoHome;//返回主页
edt1.Text:=’about blank’;
end;
procedure TForm1.tlb1Click(Sender: TObject);
begin
close;//退出
end;
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
转载请注明出处: https://daima100.com/12040.html
