delphi - 暂时禁用 Delphi 中 TvertScrollBox 组件的滚动？

Question

我正在 Delphi Rad Studio XE10.1 Berlin 中为 IOS 和 Android 设备制作应用程序，但遇到了问题。

在一个表单中，我有一个 TvertScrollbox ，其中有许多要显示的组件，其中之一是 Tlistview .

问题是，当我在 Tlistview 中滚动时，因为显示的数据较多，也在 TvertScrollbox 中进行滚动，最终无法正确可视化数据。

有没有办法禁用TvertScrollbox的滚动暂时，然后再次启用？

我希望我已经解释得很好了。我的英语很差，谢谢。

Answer 1

是的，您可以通过简单地输入 AniCalculations.TouchTracking := [] 来禁用 TvertScrollbox，然后将其放回 AniCalculations.TouchTracking := [ttVertical]

我制作了一个 TvertscollBox 来实现所有此类行为(当子对象滚动时停用滚动)，并且还纠正了其他一些错误...源代码太大，无法复制到这里，因此您可以直接在这里查看:

(svn) https://svn.code.sf.net/p/alcinoe/code/

查看单元ALFmxLayouts

如果您想查看滚动停用的演示，请查看项目/demos/alfmxControls/或直接加载 https://sourceforge.net/p/alcinoe/code/HEAD/tree/demos/ALFmxControls/Android/Release/ALFmxControls/bin/ALFmxControls.apk?format=raw或者如果您需要在 android 中手动编写它，则可以使用缩短的变体:http://tinyurl .com/zsamrbn(要在 android 上安装的已编译 apk 的 url)在演示中你可以看到一个 tabcontrol，当你在它上面滚动时，vertscrollbox 的滚动被停用