Delphi FireMonkey中如何用CalcContentBounds设置TVertScrollBox滚动范围？

针对你在VertScrollBox内的FlowLayout中动态添加高度可变Frame后，需要让滚动范围准确覆盖第一个到最后一个Frame的需求，我提供两种实用方案，你可以根据场景选择：

方案1：快速手动更新（适合一次性添加Frame的场景） #

如果只是一次性批量添加Frame，不需要后续动态修改Frame高度，那么在完成控件添加后，只需触发VertScrollBox重新计算内容边界即可，无需重写方法。

补全你的Button2Click代码如下：

procedure TForm1.Button2Click(Sender: TObject);
var 
  fr: TfrFrameItem; 
  i: integer;
begin
  FlowLayout1.BeginUpdate;
  try
    // 清理已存在的Frame
    for i := FlowLayout1.ControlsCount - 1 downto 0 do
    begin
      if FlowLayout1.Controls[i] is TfrFrameItem then
        FlowLayout1.Controls[i].Free;
    end;

    // 动态添加高度可变的Frame
    for i := 0 to 10 do
    begin
      fr := TfrFrameItem.Create(Self);
      fr.Parent := FlowLayout1;
      // 模拟随机高度，替换成你的实际高度逻辑
      fr.Height := 50 + Random(100);
      fr.Caption := Format('Frame %d', [i+1]);
    end;
  finally
    FlowLayout1.EndUpdate;
    // 触发滚动框重新计算内容边界
    VertScrollBox1.UpdateContentBounds;
  end;
end;

注：BeginUpdate和EndUpdate用于避免添加控件时频繁刷新界面，提升性能；UpdateContentBounds会让VertScrollBox根据FlowLayout的最新大小重新设置滚动范围。

方案2：重写CalcContentBounds（适合动态修改Frame高度的场景） #

如果Frame的高度会在运行时动态变化，或者FlowLayout有特殊布局（比如自定义Padding），重写TVertScrollBox.CalcContentBounds方法是更稳定的选择，它能确保滚动范围始终准确包裹所有Frame。

步骤1：定义VertScrollBox的子类 #

在你的Form单元中，声明一个继承自TVertScrollBox的子类，并实现CalcContentBounds方法：

type
  // 自定义VertScrollBox子类，用于重写内容边界计算逻辑
  TVertScrollBoxEx = class(TVertScrollBox)
  protected
    procedure CalcContentBounds(var ContentBounds: TRectF); override;
  end;

  TForm1 = class(TForm)
    // 注意：把原VertScrollBox1的类型改成TVertScrollBoxEx
    VertScrollBox1: TVertScrollBoxEx;
    FlowLayout1: TFlowLayout;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

步骤2：实现CalcContentBounds方法 #

procedure TVertScrollBoxEx.CalcContentBounds(var ContentBounds: TRectF);
var
  FlowLayout: TFlowLayout;
  I: Integer;
  Control: TControl;
  MinY, MaxY, ControlTop, ControlBottom: Single;
begin
  inherited; // 先调用默认计算逻辑

  // 找到ContentControl中的TFlowLayout控件
  FlowLayout := nil;
  if Assigned(ContentControl) then
  begin
    for I := 0 to ContentControl.Controls.Count - 1 do
    begin
      if ContentControl.Controls[I] is TFlowLayout then
      begin
        FlowLayout := TFlowLayout(ContentControl.Controls[I]);
        Break;
      end;
    end;
  end;

  // 如果找到FlowLayout且包含Frame，自定义计算滚动边界
  if Assigned(FlowLayout) and (FlowLayout.Controls.Count > 0) then
  begin
    // 初始化边界为第一个Frame的位置和底部（考虑FlowLayout的Padding）
    ControlTop := FlowLayout.Position.Y + FlowLayout.Padding.Top + FlowLayout.Controls[0].Position.Y;
    ControlBottom := ControlTop + FlowLayout.Controls[0].Height;
    MinY := ControlTop;
    MaxY := ControlBottom;

    // 遍历所有Frame，更新最小和最大Y值
    for I := 1 to FlowLayout.Controls.Count - 1 do
    begin
      Control := FlowLayout.Controls[I];
      ControlTop := FlowLayout.Position.Y + FlowLayout.Padding.Top + Control.Position.Y;
      ControlBottom := ControlTop + Control.Height;
      
      if ControlTop < MinY then MinY := ControlTop;
      if ControlBottom > MaxY then MaxY := ControlBottom;
    end;

    // 设置最终的ContentBounds，确保覆盖所有Frame及FlowLayout的Padding
    ContentBounds.Left := 0;
    ContentBounds.Right := ContentControl.Width;
    ContentBounds.Top := MinY - FlowLayout.Padding.Top;
    ContentBounds.Bottom := MaxY + FlowLayout.Padding.Bottom;
  end;
end;

步骤3：使用子类控件 #

在设计时，确保你的VertScrollBox控件类型是TVertScrollBoxEx（如果是动态创建的，直接实例化这个子类即可），然后运行时添加Frame的逻辑和方案1一致，无需额外调用UpdateContentBounds，因为每次滚动或布局变化时，都会自动调用重写的CalcContentBounds方法。

内容的提问来源于stack exchange，提问作者Luiz Alves