Delphi 12中TFlowLayout内容溢出时如何实现滚动？

问题根源 #

把TFlowLayout直接放进TScrollBox后，默认滚动框会让FlowLayout保持自身固定尺寸，不会跟随滚动框的客户区大小变化，自然就没法随屏幕调整自动排列项目了。

解决步骤 #

• 将TScrollBox的Align属性设为alClient，让它铺满父容器（比如Form），窗口尺寸变化时滚动框也会同步调整。
• 把TFlowLayout放在ScrollBox内部，设置它的Align为alClient，WrapContents设为True，AutoSize设为True。
• 开启ScrollBox的AutoScroll属性为True——这样FlowLayout的宽度会跟随ScrollBox的客户区宽度变化，内容过多时高度自动拉长，滚动条自动显示；窗口变窄时，FlowLayout里的项目也会自动换行排列。

修正后的DFM代码示例 #

object Form1: TForm1
  Caption = 'FlowLayout Scroll Demo'
  ClientHeight = 600
  ClientWidth = 800
  object ScrollBox1: TScrollBox
    Align = alClient
    AutoScroll = True
    object FlowLayout1: TFlowLayout
      Align = alClient
      AutoSize = True
      WrapContents = True
      // 这里放置你的FlowLayout子控件，比如按钮、标签等
      object Button1: TButton
        Width = 150
        Height = 50
        Caption = '按钮1'
      end
      object Button2: TButton
        Width = 150
        Height = 50
        Caption = '按钮2'
      end
      // 更多子控件...
    end
  end
end

额外小技巧 #

如果调整属性后仍有异常，可在Form的OnResize事件里添加一行强制更新布局的代码：

procedure TForm1.FormResize(Sender: TObject);
begin
  FlowLayout1.UpdateLayout;
end;

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