delphi - 如何在Delphi XE8中处理TListBox一直向下滚动到最后一个TListBoxItem？

Question

我正在尝试制作一个最初在其中加载 15 个 TListBoxItems 的 TListBox，每次滚动到 TListBoxItem 底部时都会添加另外 15 个 TListBoxItems。在 Delphi XE8 中的 firemonkey 多设备项目中。

现在我不知道如何知道用户是否在 TListBox 中一直向下滚动。我已经尝试了 TListBox 的每个事件，但似乎没有一个能做到这一点。

Answer 1

我认为你需要稍微横向一下。不要考虑用户何时滚动到列表底部，而应考虑列表中最后一项何时可见，即 ListBox.ListItems[ListBox.ListItems.IsVisible] 的 IsVisible 属性何时出现。计数 - 1].IsVisible 为 TRUE。

只有当用户滚动到列表底部时，这才变为 TRUE!

您可以使用手势管理器或简单的计时器来测试状态。