VertScrollBox检测何时到达Android和IOS

Question

我在GridLayout1上有VertScrollBox1。垂直滚动框滚动浏览网格布局的内容。我需要检测“垂直”滚动框何时到达底部，以便将更多内容加载到网格布局中。 再次到达底部时再做一次。

我该如何实现？

Answer 1

使用OnViewportPositionChange()中的VertScrollBox1。然后一些简单的算术告诉您何时到达底部：

uses Math, ...;
// ...

procedure TForm1.VertScrollBox1ViewportPositionChange(Sender: TObject;
  const OldViewportPosition, NewViewportPosition: TPointF;
  const ContentSizeChanged: Boolean);
begin
  if CompareValue(NewViewportPosition.Y, GridLayout1.Height - VertScrollBox1.Height) = EqualsValue then
    Memo1.Lines.Add('At bottom, time to grow and load more content to the GridLayout');
end;

由于我们比较的值是浮点数，因此请使用Math.CompareValue()进行比较。

或者function SameValue()，也以Math单位