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

时间:2016-09-29 08:46:13

标签: delphi scroll firemonkey delphi-10.1-berlin

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

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

问题是,当我在Tlistview中进行滚动时,因为有更多数据显示,所以在TvertScrollbox中进行了滚动,这在结束是不可能正确地显示数据。

有没有办法暂时禁用TvertScrollbox滚动,然后再次启用?

我希望我已经解释得很好。我的英语非常糟糕,谢谢你。

1 个答案:

答案 0 :(得分:2)

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

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

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

查看单位ALFmxLayouts

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