好了，让我们来分析一下，首先我们转到FMX.ListBox单元中的ScrollToItem

procedure TCustomListBox.ScrollToItem(const Item: TListBoxItem);
begin
  if (Item <> nil) and (Content <> nil) and (ContentLayout <> nil) then
  begin
    if VScrollBar <> nil then
    begin
      if Content.Position.Y + Item.Position.Y + Item.Margins.Top + Item.Margins.Bottom + Item.Height >
        ContentLayout.Position.Y + ContentLayout.Height then
        VScrollBar.Value := VScrollBar.Value + (Content.Position.Y + Item.Position.Y + Item.Margins.Top +
          Item.Margins.Bottom + Item.Height - ContentLayout.Position.Y - ContentLayout.Height);
      if Content.Position.Y + Item.Position.Y < ContentLayout.Position.Y then
        VScrollBar.Value := VScrollBar.Value + Content.Position.Y + Item.Position.Y - ContentLayout.Position.Y;
    end;
    if HScrollBar <> nil then
    begin
      if Content.Position.X + Item.Position.X + Item.Margins.Left + Item.Margins.Right + Item.Width >
        ContentLayout.Position.X + ContentLayout.Width then
        HScrollBar.Value := HScrollBar.Value + (Content.Position.X + Item.Position.X + Item.Margins.Left +
          Item.Margins.Right + Item.Width - ContentLayout.Position.X - ContentLayout.Width);
      if Content.Position.X + Item.Position.X < 0 then
        HScrollBar.Value := HScrollBar.Value + Content.Position.X + Item.Position.X - ContentLayout.Position.X;
    end;
  end;
end;

现在可以看到，该过程检查许多值（边距、填充、顶部......），然后通过将VScrollBar.Value设置到适当的位置来移动VScrollBar。
您想知道垂直滚动条何时到达底部。
因此我们对列表视图使用了与我的另一个answer相同的思想。
我们首先添加这个技巧来暴露TListBox类的私有和受保护部分

TListBox = class(FMX.ListBox.TListBox)
  end;

将其添加到列表框所在的表单中，然后使用VScrollChange(Sender: TObject);事件并对if条件进行反向工程。
像这样的东西会对你有用的

procedure TForm1.ListBox1VScrollChange(Sender: TObject);
var
  S: Single;
begin
  S:= ListBox1.ContentRect.Height;

  if ListBox1.VScrollBar.ValueRange.Max = S + ListBox1.VScrollBar.Value then
    Caption := 'hit'
  else
    Caption := 'no hit';
end;

当试图解决这些类型的问题时，总是寻找一个ScrollToControl函数并从那里得到灵感。2上面的代码是处理添加到滚动框的简单项目。3如果你有任何边距或填充的问题，只需改进公式来科普。