delphi - TListBox弹性滚动效果

Question

如何实现弹性滚动效果 like this one (用鼠标拖动滚动)在 Delphi XE2 FireMonkey 中使用标准 TListBox 组件在列表上？

Answer 1

一种这样的解决方案可能是利用 TListBox.ChildrenCount-1 并检查它的 Position.Y 是否小于 TListBox.Parent.Height + TListBoxItem.height。此外，创建一个全局 bool 变量，例如“MouseIsDown”。

由于 TListBox 中的每个项目实际上都是一个可以直接使用和修改的子对象，因此只需创建一个大的空 TListBoxItem 并确保将其设置为列表中的最后一个对象。

在 OnMouseDown 中，将 MouseIsDown 设置为 True，在 OnMouseUp 中，将其设置为 false。

将 TFloatAnimation 添加到 TListBox，并将插值属性设置为 itElastic 或 itBounce。当 MouseIsDown 设置为 false 时，禁用此效果；当 MouseIsDown 设置为 true 时，启用此效果。您需要做一些工作才能将列表的位置重置为最后一个有效对象。也许可以在动画本身的 OnFinish 事件中执行此操作。

更合适的方法是计算最后一个对象的位置，并将动画的 StopValue 设置为该值。

<小时/>

本质上，您需要检查列表中最终有效对象(即不是大空白对象)的坐标是否与列表框的高度匹配。如果确实如此，并且鼠标未按下，则启用动画并且滚动框会弹起。如果它们匹配，并且鼠标按下，则动画将被禁用，因此 OnFinish 甚至不会被触发，因此滚动框不会重置其位置。

您可能需要执行迭代嵌套过程来检查每个值是否为真。

它不会像 iOS 实现那样顺利，但它应该为您提供一些可以使用的东西。