我在VertScrollBox1
上有GridLayout1
。垂直滚动框会滚动网格布局的内容。我需要检测垂直滚动框何时到达底部,以便将更多内容加载到网格布局。当再次到达底部时,再做一次。
我如何才能做到这一点?
发布于 2018-07-01 09:51:52
使用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()
进行比较。
或者,也在Math
单元中的function SameValue()
https://stackoverflow.com/questions/51118018
复制相似问题