Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

时间:2023-03-08 17:19:13

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

在FireMonkey iOS应用程序中使用WebBrowser

在iOS平台上,FireMonkey使用TWebBrowser组件来封装Web Browser。这篇文单讲述了如何在iOS上创建一个简单的FireMonkey浏览器程序。

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

第一步:设计界面

 

1.        选择File>New>FireMonkey Mobile Application – Delphi>BlankApplication。

2.        在Tool Palette中选择TToolBar组件,然后拖到FireMonkey Mobile Form Designer上去。

要找到TToolBar,在ToolPalette的搜索框中输入开头的几个字母(“tool”):

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

3.        在你拖好控件之后,你就可以在Form Designer的顶部看到这个TComboBox组件了:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

4.        在Tool Palette中选择TButton组件,并拖放到ToolBar上面。

5.        在Mobile Form Designer上选中Button组件,然后在Object Inspector中的StyleLookup属性中选择priortoolbuttonbordered。

Tbutton的priortoolbuttonbordered这个StyleLookup值在iOS Style中会添加一个返回按钮标签:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

更多关于在FireMonkey iOS应用程序中选择Style的细节,请查看“Delphi for iOS开发指南(4):在iOS应用程序中使用不同风格的Buttin组件”。

6.        在Tool Palette中选择TEdit组件并拖放到ToolBar上面。确保Edit控件的尺寸填充ToolBar的空余区域:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

7.        在Tool Palette中选择TWebBrowser组件并拖放到窗体上面。

8.        在Mobile Form Designer上选中WebBrowser组件,然后在Object Inspector中的Align属性设置为alClient。

在完成这些步骤后,窗体看出来应该是如下图所示:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

第二步:编写一个事件处理过程,当用户更改URL文本框时打开一个网页

与桌面平台不一样的是,Mobile Device使用如下图所示的Virtual Keyboard来输入文字。用户可以通过点击“Done”或“Return”来完成这个动作。

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

FireMonkey提供一些事件处理过程来处理用户操作的响应。在“Done”按钮按下的时候,FireMonkey框架发送一个OnChange事件给TEdit控件。另一方面,“Return”按钮没有相应的事件。在这节中,你实现事件处理过程来同时支持这两种情况。

实现打开网页的共用方法

在实现事件处理过程之前,首先实现一个打开网页的共用方法,使用Edit控件的Text属性。

1.  在Code Editor中,创建下面代码:

  1. procedure OpenURL; next to{ Private declarations }

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

2.按下CTRL+SHIFT+C来在文件的末尾创建一个占位符:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

3.按下面的代码片断来实现这个OpenURL方法:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

实现OnChange事件的事件处理过程

1.  在Mobile FormDesigner中,选中Edit控件,然后在Object Inspector(Events页),双击OnChange事件旁边的空白区域来创建事件处理过程。

Object Inspector创建一个名为Edit1Change的事件处理过程:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

2.添加如下代码来实现这个事件处理过程:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

实现返回按钮的事件处理过程

为了给WebBrowser实现返回按钮,你可以简单的调用WebBrowser组件的GoBack方法:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

基本的功能已经实现了。尝试在iOS Simulator或iOS Device中运行你的应用程序。

第三步:为Web Browser应用程序选择合适的键盘

在运行你的第一个WebBrowser应用程序之后,你会发现虚拟键盘不是很合理。

iOS提供以下几种虚拟键盘:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件

在Edit控件的KeyboardType属性中选择vktURL做为合适的虚拟键盘:

Delphi for iOS开发指南(7):在iOS应用程序中使用WebBrowser组件