Delphi|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;
搞定!
【Delphi|APP 多张图片滑动显示 - 之二】实测在 Windows 下和在安卓下,都有动画效果。

    推荐阅读