做个伪IE浏览器?!【来自官网】

时间:2023-03-10 03:38:25
做个伪IE浏览器?!【来自官网】

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

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

Win32页面的工具面板,添加TToolBar

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

做个伪IE浏览器?!【来自官网】
  1. 设置解说词属性的每个按钮控件如下:后退前进主页
  2. 选择编辑框窗体设计器上,去检查对象并选择alclient对于对齐财产
  3. 互联网页面的工具面板,地方TWEBBROWSER在线表单组件
  4. 选择TWEBBROWSER在窗体设计器的组件,去检查对象并选择alclient对于对齐财产

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

完成这些步骤后,形式应类似于下面的图片:
做个伪IE浏览器?!【来自官网】

添加使用浏览器代码

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窗口
在运行时间的结果:

做个伪IE浏览器?!【来自官网】