Delphi Firemonkey使用TVertScrollbox自定义列表数据

界面布局设置如下

创建一个过程添加新项目

procedure TForm1.AddItem(name: string; age: Integer);
var
  layout: TLayout;
begin
  // 设置姓名标签的文本
  Label3.Text := name;
  // 设置年龄标签的文本
  Label4.Text := IntToStr(age);

  // 克隆 Layout1，并将克隆得到的对象赋值给 layout 变量
  layout := TLayout(Layout1.Clone(VertScrollBox1));

  // 设置布局控件的宽度为 VertScrollBox1 的宽度减去 32
  layout.Width := VertScrollBox1.Width - 32;
  // 设置布局控件在垂直滚动框内的水平位置为 16
  layout.Position.X := 16;
  // 设置布局控件在垂直滚动框内的垂直位置为 YY（YY 是一个变量，代表当前布局控件的垂直位置）
  layout.Position.Y := YY;

  //重新设置下一个控件的纵向坐标
  YY := YY + layout.Height + 12;

  // 将布局控件设置为可见
  layout.Visible := True;

  // 将布局控件添加到垂直滚动框中
  VertScrollBox1.AddObject(layout);
end;