结果: 

1.如果直接改变Tab的TabIndex,那样是没有动态效果的。如果想要动态效果需要用到ChangeTabAction1;

2.ChangeTabAction1可以直接为按钮指定Action这样不写代码,也可以支持动态效果。

3.ExecuteTarget是执行跳转功能,查看源代码,没有找到参数是做什么的。所以真心不明白里面的参数是什么意思。希望哪位前辈指点。

4.有人可能感觉出来了,为什么Android上的QQ、微信什么的手势都那么好用,而Delphi的有时不好使。其实不是这样的。那是因为Delphi中是直线向左、向右才识别。有关手势的我会重写文章说明,此文只是对Tab控件的功能介绍。

实例代码:

 unit Unit1;

 interface

 uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.ListBox, FMX.Layouts,
FMX.TabControl, System.Actions, FMX.ActnList, FMX.NumberBox, FMX.Edit,
FMX.EditBox, FMX.SpinBox, FMX.Gestures; type
TForm1 = class(TForm)
TabControl1: TTabControl;
Layout1: TLayout;
ComboBox1: TComboBox;
Label1: TLabel;
TabItem1: TTabItem;
TabItem2: TTabItem;
TabItem3: TTabItem;
TabItem4: TTabItem;
Button1: TButton;
Button2: TButton;
ActionList1: TActionList;
ChangeTabAction1: TChangeTabAction; //手动增加的Action
ChangeTabAction2: TChangeTabAction; //手动增加的Action
ChangeTabAction3: TChangeTabAction; //手动增加的Action
ChangeTabAction4: TChangeTabAction; //手动增加的Action
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button11: TButton;
Button12: TButton;
GestureManager1: TGestureManager; //手动增加的控件
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure TabControl1Gesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.fmx}
{$R *.NmXhdpiPh.fmx ANDROID} //为了实现手势必须做的设置
procedure TForm1.FormCreate(Sender: TObject);
begin
//为Tab指定一个手势控件
TabControl1.Touch.GestureManager := GestureManager1;
//设置Tab控件支持的手势有哪些(如果这一项不设置,手势是没有反映的)
TabControl1.Touch.StandardGestures := [TStandardGesture.sgLeft, TStandardGesture.sgRight];
end; //Action上一页
procedure TForm1.Button11Click(Sender: TObject);
begin
if TabControl1.TabIndex > then
begin
ChangeTabAction1.Tab := TTabItem(Form1.FindComponent('TabItem' + IntToStr(TabControl1.TabIndex)));
ChangeTabAction1.ExecuteTarget(Self);
end;
end; //Action下一页
procedure TForm1.Button12Click(Sender: TObject);
begin
if TabControl1.TabIndex < TabControl1.TabCount - then
begin
ChangeTabAction1.Tab := TTabItem(Form1.FindComponent('TabItem' + IntToStr(TabControl1.TabIndex + )));
ChangeTabAction1.ExecuteTarget(Self);
end;
end; //Tab上一页
procedure TForm1.Button1Click(Sender: TObject);
begin
if TabControl1.TabIndex > then
begin
TabControl1.TabIndex := TabControl1.TabIndex - ;
end;
end; //Tab下一页
procedure TForm1.Button2Click(Sender: TObject);
begin
if TabControl1.TabIndex < TabControl1.TabCount - then
begin
TabControl1.TabIndex := TabControl1.TabIndex + ;
end;
end; //ExecuteTarget方法1
procedure TForm1.Button7Click(Sender: TObject);
begin
ChangeTabAction1.ExecuteTarget(self);
end; //ExecuteTarget方法2
procedure TForm1.Button8Click(Sender: TObject);
begin
ChangeTabAction1.ExecuteTarget(TabControl1);
end; procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
: TabControl1.TabPosition := TTabPosition.PlatformDefault;
: TabControl1.TabPosition := TTabPosition.Top;
: TabControl1.TabPosition := TTabPosition.Bottom;
: TabControl1.TabPosition := TTabPosition.None;
: TabControl1.TabPosition := TTabPosition.Dots;
end;
end; //利用手机的返回键实现Tab跳转
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
if Key = vkHardwareBack then
begin
if TabControl1.TabIndex > then
begin
TabControl1.TabIndex := TabControl1.TabIndex - mod TabControl1.TabCount;
Key := ;
end;
end;
end; //利用手势实现Tab跳转
procedure TForm1.TabControl1Gesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
case EventInfo.GestureID of
sgiLeft:
begin
case TabControl1.TabIndex of
: ChangeTabAction2.ExecuteTarget(self);
: ChangeTabAction3.ExecuteTarget(self);
: ChangeTabAction4.ExecuteTarget(self);
end;
end;
sgiRight:
begin
case TabControl1.TabIndex of
: ChangeTabAction3.ExecuteTarget(self);
: ChangeTabAction2.ExecuteTarget(self);
: ChangeTabAction1.ExecuteTarget(self);
end;
end;
end;
Handled := True;
end; end.

Android实例-TTabControl的使用(XE8+小米2)的更多相关文章

  1. Android实例-OrientationSensor方向传感器(XE8+小米2)

    相关资料: <修复 XE8 for Android 方向传感器 headingX,Y,Z 不会动的问题>:http://www.cnblogs.com/onechen/p/4497282. ...

  2. Android实例-读取设备联系人(XE8+小米2)

    相关资料: http://www.colabug.com/thread-1071065-1-1.html 结果: 1.将权限打开Read contacts设置为True,不然报图一的错误. 2.搜索空 ...

  3. Android实例-设置消息提醒(XE8+小米2)

    相关资料: 1.官网实例:http://docwiki.embarcadero.com/RADStudio/XE5/en/Mobile_Tutorial:_Using_the_Notification ...

  4. Android实例-闪光灯的控制(XE8+小米2)

    unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Var ...

  5. Android实例-获取程序版本号(XE10+小米2)

    相关资料: 383675978群号 实例源码: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, Sy ...

  6. Android实例-调用系统APP(XE10+小米2)

    相关资料:群号383675978 实例源码: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, Sys ...

  7. Android实例-红外线操作(XE10.2+小米5)

    相关资料: http://blog.csdn.net/qq_21752153/article/details/50244717https://developer.xamarin.com/api/typ ...

  8. Android实例-实现扫描二维码并生成二维码(XE8+小米5)

    相关资料: 第三方资料太大没法写在博文上,请下载CSDN的程序包. 程序包下载: http://download.csdn.net/detail/zhujianqiangqq/9657186 注意事项 ...

  9. 45个android实例源码

    分享45个android实例源码,很好很强大http://www.apkbus.com/android-20978-1-1.html andriod闹钟源代码http://www.apkbus.com ...

随机推荐

  1. 使用gulp来构建一个前端项目

    什么是gulp? gulp是一个前端项目构建工具,是自动化项目的构建利器,它不仅能对网站资源进行优化,而且在开发过程中很多重复的任务能够使用正确的工具自动完成.你可以使用gulp及其插件对你的项目代码 ...

  2. Python基本时间转换

    时间转换 python中处理时间的时候,最常用的就是字符形式与时间戳之间的转换. 把最基本的转换在这里记下来 string -> timestamp import time import dat ...

  3. 水题2枚 Codevs1464&amp;&amp;Codevs1472

    1472 体检  时间限制: 1 s  空间限制: 64000 KB  题目等级 : 白银 Silver 题解  查看运行结果     题目描述 Description 郑厂长不是正厂长 也不是副厂长 ...

  4. RDS最佳实践(一)—如何选择你的RDS

    在去年双11之前,为了帮助商家准备天猫双11的大促,让用户更好的使用RDS,把RDS的性能发挥到最佳,保障双11当天面对爆发性增加的压力,不会由于RDS的瓶颈导致系统出现问题,编写了 RDS的最佳实践 ...

  5. Laravel 5.2错误-----Base table or view not found: 1146 Table

    报出这个问题,我想就是数据库表名不对导致的. 为什么呢?感觉laravel太强大了,很专业的感觉. 因为它对单词命名的单复数区分的很清楚吧.laravel会自动的将模型名自动替换成名称的复数形式,然后 ...

  6. win7生成ssh key配置到gitlab

    测试服务上使用ip访问gitlab,比如http://192.168.0.2/,创建用户并登陆后创建一个项目,比如git@gitlab.demo.com:demo/helloworld.git 如果想 ...

  7. [转]Java对象的序列化和反序列化

    一.序列化和反序列化的概念 把对象转换为字节序列的过程称为对象的序列化. 把字节序列恢复为对象的过程称为对象的反序列化. 对象的序列化主要有两种用途: 1) 把对象的字节序列永久地保存到硬盘上,通常存 ...

  8. 利用memcpy函数实现float到QByteArray的相互转化

    一.为什么要实现float到QByteArry之间的相互转化 在总线通讯过程中(例如串口通讯),总线上传输的是字节数组变量,即ByteArray型的变量,在Qt中即为QbyteArray型变量.总线发 ...

  9. rolling方式修改oplog

    在 3.4之前版本 , 修改oplog 是一个非常麻烦的事情, 要停数据库 , rolling方式适合 3.4 之前版本修改oplog的大小 1. 配置文件注释 replSet2. 配置文件 oplo ...

  10. linux 下SPI通信注意事项(待续)

    一.2台Linux设备之间使用SPI通信 1.标准Linux只支持Master 模式.但是可以在驱动中修改为Slave模式: 2.硬件SPI可能支持Slave模式,也可能不支持.这个要提前确认好: 3 ...