FMX TScrollBox缩放内容后内容区域尺寸异常问题求助

问题分析 #

手动调整TImageControl的Scale和Position后，TScrollBox的Content无法自动适配控件缩放后的实际尺寸——因为默认情况下，ScrollBox是基于控件的原始Width/Height计算Content尺寸，完全忽略了Scale变换。你调用的AdjustSizeValue、InvalidateContentSize等方法都是基于原始尺寸的重算，所以无效。

解决方案 #

直接手动计算所有缩放后图片的总高度，赋值给ScrollBox.Content.Height，同时按需设置宽度。修改TrackBar1Change方法，并简化Button2Click逻辑：

修改后的代码 #

更新TrackBar1Change方法

procedure Tform1.TrackBar1Change(Sender: TObject);
var
  i: Integer; vertical,ScaleValue:Single;
  LastImageBottom: Single;
begin
  vertical := 0;
  ScaleValue := TrackBar1.Value;
  Label2.Text := 'Scale: '+round(ScaleValue*100).ToString +'%';
  LastImageBottom := 0;
  for i := 0 to ScrollBox.Content.ControlsCount - 1 do
  if ScrollBox.Content.Controls[i] is TImageControl then
    with ScrollBox.Content.Controls[i] as TImageControl do
    begin
      Scale.Y := TrackBar1.Value;
      Scale.X := TrackBar1.Value;
      Position.y := Vertical;
      Vertical := vertical + (PH*ScaleValue);
      LastImageBottom := Vertical;
    end;
  // 手动设置Content的高度为最后一张图片的底部位置
  ScrollBox.Content.Height := LastImageBottom;
  // 同步设置Content宽度为缩放后的图片宽度
  ScrollBox.Content.Width := PW * ScaleValue;
end;

简化Button2Click方法

procedure Tform1.Button2Click(Sender: TObject);
begin
  // 触发一次缩放计算即可重新适配Content尺寸
  TrackBar1Change(nil);
end;

原理说明 #

• FMX控件的Scale是视觉缩放，不会修改控件本身的Width/Height属性，因此ScrollBox的自动尺寸计算逻辑无法识别缩放后的实际占用空间。
• 手动计算所有图片缩放后的总高度并赋值给ScrollBox.Content.Height，能让ScrollBox准确识别可滚动区域的边界，彻底解决底部空白或图片截断问题。

额外优化建议 #

可以把图片原始高度存储在控件Tag属性中，避免硬编码PH，提升代码灵活性：

// 在MakeImage函数中添加
result.Tag := PH;

// 在TrackBar1Change中替换PH为Image.Tag
Vertical := vertical + (Image.Tag * ScaleValue);

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