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

【问题标题】：Disable the scroll temporarily ,of a TvertScrollBox component in Delphi?Delphi中暂时禁用TvertScrollBox组件的滚动？
【发布时间】：2016-09-29 08:46:13
【问题描述】：

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

在一个表单中，我有一个TvertScrollbox，其中有很多组件要显示，其中一个是Tlistview。

问题是，当我在Tlistview做一个scroll时，因为有更多的数据显示，也在TvertScrollbox做一个滚动，这到底是不可能的正确可视化数据。

有什么办法可以暂时禁用TvertScrollbox的scroll，然后再启用？

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

【问题讨论】：

标签： delphi scroll firemonkey delphi-10.1-berlin

【解决方案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）在demo中你可以看到一个tabcontrol，当你在它上面滚动时，vertscrollbox的滚动被禁用了

【讨论】：

非常感谢，你救了我！我想我必须改变一切，然后放 Frames。