[译]Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页

  • 主题发起人 主题发起人 DelphiTeacher的专栏
  • 开始时间 开始时间
D

DelphiTeacher的专栏

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi for iOS开发指南(8):在iOS应用程序中使用Tab组件来显示分页









FireMonkey iOS应用程序中的Tab



TabFMX.TabControl.TTabControl定义,它是一个容器,用来包含一些Tab页:

  • 每个Tab页可以包含任意UI元素。
  • 你可以隐藏这些页,不用显示点按来切换Tab页。

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

对于每个Tab,你可以指定预先定义好的图片,也可以自定义图标,以及Text标签。

当然你也可以在控件的顶部或底部放置Tab







使用Form Designer设计Tab



要在应用程序中创建Tab页,按下面的步骤使用TTabControl组件:

1.创建一个HD FireMonkey Mobile Application,选择File>New>FireMonkeyMobile Application-Delphi>Blank Application。使用默认的iPhone目标平台(iOS Simulator)。

2.从Tool Palette中选择TTabControl

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

3.在你拖放TTabControl之后,一个空的TabControl会显示在FireMonkey MobileForm Designer

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

4.通常,应用程序使用TabControl的时候都是全屏显示页面的。你需要更改TTabControl的默认对齐方式,更改TabControlAlign属性为alClient


XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

5.右击TabControl,然后从弹出菜单中选择Items Editor…

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

6.点击三次Add Item,以便创建一个TabItem的实例。关闭对话框。

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

7.在FireMonkey Mobile FormDesigner上,选择第一个TabItem,并更改它的StyleLookup属性为tabitembookmarks

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

8.你可以在任意页面放置任何控件。为了移动到不同的页面,只需要在Form Designer上点击你想到的Tab,或在Object Inspector里改变ActiveTab属性:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

9.为了改变Tab的位置,选择TabControl组件的TabPosition属性。每个Tab,你都可以在Object Inspector选择下列任意值:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png











自定义Tab图标



你可以通过下面这些步骤来给Tab页使用自定义图标和自定义标题。

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

1.放置一个TabControl,设置它的对齐(Align属性),然后为它创建几个Tab页。

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

2.选择一个Tab,然后在Object Inspector中,点击TTabItemCustomIcon属性中的Bitmap字段的[…]省略号按钮:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

3.从下拉菜单中选择Edit…

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

4.在Bitmap Editor中,点击Load…按钮,选择一个PNG文件。普通方案建议尺寸为30*30,高级方案建议60*60(你在下一步用设置BitmapHiRes图标):

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

5.关闭Bitmap Editor,在Object Inspector中选中你想要使用的CustomIconBitmapHiResHigh-Resolution)字段。

6.在Object Inspector中将StyleLookup属性设置为tabitemcustom

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

7.在Text属性里,更改Tab上的Text

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png



在本篇教程中所使用的自定义图片都放在你的$(BDS)\Images\GlyFX目录下。



在你定义好一个图标之后,FireMonkey框架根据给定的.png文件生成一个选中的图片和一个未选中的图片。这个转换由Bitmap DataAlpha-Channel完成。例如:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png













TabControl中放置控件



刚才讲过,每个Tab页可以包含任何数量的控件,包括另一个TabControl。在这种情况下,你可以在Structure View中方便的查看并管理不同的Tab页。

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png











在运行时切换分页



通过用户点按Tab

如果Tab显示(当TabPosition设置成不是tpNone),用户可以简单的点按Tab来在分页之间进行切换。



通过ActionActionList

Action绑定一个或多个用户界面元素,例如菜单项,工具条按钮,控件等。Action提供两个功能:

  • Action提供用户界面元素的通用属性,例如控件是否可用或勾选框是否选中。
  • Action响应控件触发,例如,当应用程序用户点击按钮或选中了菜单项。

这里是让用户通过点击按钮来移动到不同分页的实现步骤:

1.在FireMonkey Mobile应用程序中,放置一个TabControl,在上面放置一些Tab项(TabItem1TabItem2TabItem3)。

2.从Tool Palette中,添加一个TButton到窗体上,然后添加一个ActionList组件:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

3.在Object Inspector中选择Button组件,然后从下拉菜单中选择Action|New StandardAction|Tab>TChangeTabAction。在用户点击这个按钮时,你刚才定义的Action就会被执行(Tab分页会切换):

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

4.在Structure View中选择ChangeTabAction1,然后在Object Inspector中选择TabItem2作为Tab属性的值,这个Action就可以将当前分页切换到TabItem2:

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png

6ChangeTabAction也支持Slide动态效果来表现分页之间的切换。为了使用它,设置Transition属性为ttSlide

XoYfhe2sV9eG2eAL-n99BnJ4xSA03XAY.png





通过写代码



你可以使用下面几种方法来在代码中切换当前的分页:

  • TTabItem的实例赋给ActiveTab属性:

TabControl1.ActiveTab := TabItem1;



  • 更改TabIndex的值。TabIndex属性是0开始的下标值(你可以使用0TabControl1.TabCount-1之间的值)。

TabControl1.TabIndex := 1;



  • 如果定义了ChangeTabAction,你也可以从代码里执行这个Action

// You can set the target at run time if itis not defined yet.

ChangeTabAction1.Tab := TabItem2;



// Call the action

ChangeTabAction1.Execute;





















翻译的不好,请大家贱谅!

欢迎加入OrangeUI For FMX 技术支持QQ群10900297

作者:DelphiTeacher 发表于2013/5/14 15:33:29 原文链接
阅读:2316 评论:1 查看评论

查看更多...
 
最后编辑:

Similar threads

D
回复
0
查看
815
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
825
DelphiTeacher的专栏
D
后退
顶部