做个伪IE浏览器？！【来自官网】

原文：http://docwiki.embarcadero.com/RADStudio/Seattle/en/Building_a_VCL_Forms_Web_Browser_Application

 

选择File > New > 来新建一个VCL窗体应用程序

从Win32页面的工具面板，添加TToolBar

从Standard页面的工具面板，添加按钮控件和TEdit控件

1. 设置解说词属性的每个按钮控件如下：后退，前进和主页
2. 选择编辑框窗体设计器上，去检查对象并选择alclient对于对齐财产
3. 从互联网页面的工具面板，地方TWEBBROWSER在线表单组件
4. 选择TWEBBROWSER在窗体设计器的组件，去检查对象并选择alclient对于对齐财产

笔记：如果窗户不够大到整体显示浏览器页面的TWEBBROWSER组件添加滚动条当你运行应用程序并启动浏览器窗口。

完成这些步骤后，形式应类似于下面的图片：

添加使用浏览器代码

procedureTForm1.Button1Click(Sender:TObject);
begin
  WebBrowser1.GoBack;
  //撤销
end;

procedureTForm1.Button2Click(Sender:TObject);
begin
  WebBrowser1.GoForward;
  //前进
end;

procedure TForm1.Button3Click(Sender:TObject);
begin
  WebBrowser1.GoHome;
  //主页
end;

procedure TForm1.Edit1Change(Sender:TObject);
begin
  WebBrowser1.Navigate(Edit1.Text);
  //跳转
end;

运行应用程序

1. 选择运行>运行建立和运行应用程序
2. 输入一个URL到网页编辑框中。在启动浏览器TWEBBROWSER窗口

在运行时间的结果：