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

Question

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

现在我无法弄清楚如何知道用户是否在TListBox中一直向下滚动。我已经尝试了TListBox的每个事件，但似乎没有人这样做。

Answer 1

我认为你需要稍微侧面来看看它。不是根据用户滚动到列表底部的时间来考虑它，而是根据列表中的最后一项何时变为可见来考虑它，即当ListBox.ListItems的ListVable属性时[ListBox.ListItems]。数 - 1] .IsVisible为TRUE。

当用户滚动到列表底部时，这只会变为TRUE！

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

Answer 2

如果平台是Windows，您可以尝试这样的

  PreparedStatement ppst=con.prepareStatement("Insert into reports (Details)value(manager_id) ");
  ResultSet rs=ppst.executeQuery();