原文:http://docwiki.embarcadero.com/RADStudio/Seattle/en/Building_a_VCL_Forms_Web_Browser_Application
选择File > New > 来新建一个VCL窗体应用程序
从Win32页面的工具面板,添加TToolBar
从Standard页面的工具面板,添加按钮控件和TEdit控件
- 设置解说词属性的每个按钮控件如下:后退,前进和主页
- 选择编辑框窗体设计器上,去检查对象并选择alclient对于对齐财产
- 从互联网页面的工具面板,地方TWEBBROWSER在线表单组件
- 选择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;
运行应用程序
- 选择运行>运行建立和运行应用程序
- 输入一个URL到网页编辑框中。在启动浏览器TWEBBROWSER窗口
-
- 在运行时间的结果:
时间: 2024-10-14 11:36:59