VertScrollBox检测底部何时到达android和IOS

我在

VertScrollBox1

上有

GridLayout1

。垂直滚动框滚动网格布局的内容。我需要检测垂直滚动框何时到达底部，以便将更多内容加载到网格布局。 当再次到达底部时，再做一次

---

如何实现这一点？

使用

VertScrollBox1

的

OnViewportPositionChange（）

。然后一些简单的算术告诉你什么时候你在底部：

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（）

进行比较

---

或者

函数SameValue（）

，也在

数学

单元

中使用

VertScrollBox1

的

OnViewportPositionChange（）

。然后一些简单的算术告诉你什么时候你在底部：

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（）

进行比较

---

或者

函数SameValue（）

，也在

数学

单元中

我猜您的意思是如果comparevalue（NewViewportPosition.Y，GridLayout1.Height-VertScrollBox1.Height）；）我非常感激我猜你的意思是如果比较值（NewViewportPosition.Y，GridLayout1.Height-VertScrollBox1.Height）；）我非常感激