APP 多张图片滑动显示 - 之二

上一个同名的博客，俺写了如何用代码去让 TabControl 切换 TAB 页的时候出现滑动的效果。

上述代码，在 WINDOWS 底下是没有问题的。在 Delphi XE8 上面，跑当年的安卓手机（Android 5.0）也是没有问题的。

在 Delphi 10.3.1 下，Android 9.0 底下，上述代码不会出现滑动效果，图片直接跳出来，而不是滑出来。FireMonkey 还有另外一个方法实现滑动效果，实测在上述安卓环境下，有效果。

有效果的方法如下：

1. 拖一个 ActionList 过来，双击，出现编辑 Action 的窗口。在此窗口内，鼠标右键，下拉菜单，选择 New Stand Action，弹出一堆内置的 Action，往下拉，选择 TAB 项下的 TNextTabAction 和 TPreviousTabAction。这种内置的 Action 无需写 Action 的事件代码。

2. 在上述两个 Action 的属性里面，在属性面板里，选择 TabControl 的属性为你需要它动态滑动切换 TAB 页的那个 TabControl2；其 Transition 属性是默认的 Slide，就是滑动效果。

3. 在程序的手势代码或者点击的 OnClick 的代码里面，写：PreviousTabAction1.Execute 或者 NextTabAction1.Execute；

搞定！

实测在 Windows 下和在安卓下，都有动画效果。