2024年2月20日发(作者：)

用Delphi做简单的网页浏览器

1，在internet中找到webbrowers

2,拖到窗体上。

3，该组件常用方法有

Navigate 浏览

stop 停止

gohome 主页

goback 后退

goforward 前进

这些都是访问网站常用的几个动作

4，设置界面

5，输入代码如下：

procedure 7Click(Sender: TObject);

begin

te(); //浏览

end;

procedure 1Click(Sender: TObject);

begin

try

;//后退

except

ShowMessage('已经达到最早记录');

Exit;

end;

end;

procedure 2Click(Sender: TObject);

begin

ard;//前进

end;

procedure 3Click(Sender: TObject);

begin

;//停止

end;

procedure 4Click(Sender: TObject);

begin

h;//刷新

end;

procedure 5Click(Sender: TObject);

begin

;//返回主页

:='about blank';

end;

procedure 1Click(Sender: TObject);

begin

close;//退出

end;