如何在Delphi中动态向TFlowLayout添加控件？

问题现象 #

• 直接设置控件Parent := FlowLayout1时，控件无法显示
• 调用FlowLayout1.Controls.Add(LLabel)会触发访问违规（AV）

原因分析 #

TFlowLayout继承自TCustomScrollBox，它的可视化子控件通过Children集合管理，而非普通TLayout使用的Controls集合。直接操作Controls会破坏内部结构导致AV；而设置Parent后控件不显示，通常是因为子控件没有明确的尺寸，FlowLayout无法正确渲染。

正确实现代码 #

方式一：通过设置Parent添加

procedure AddLabel;
var
  LLabel: TLabel;
begin
  LLabel := TLabel.Create(Self);
  try
    LLabel.Parent := FlowLayout1;
    LLabel.Text := '测试标签';
    LLabel.AutoSize := True; // 自动适配文本大小，确保FlowLayout能识别控件尺寸
    // 也可以手动指定尺寸
    // LLabel.Width := 120;
    // LLabel.Height := 24;
  except
    LLabel.Free;
    raise;
  end;
end;

方式二：通过Children集合添加

procedure AddLabel;
var
  LLabel: TLabel;
begin
  LLabel := TLabel.Create(Self);
  try
    LLabel.Text := '测试标签';
    LLabel.AutoSize := True;
    FlowLayout1.Children.Add(LLabel); // 安全的添加方式，不会触发AV
  except
    LLabel.Free;
    raise;
  end;
end;

关键注意点 #

• 避免直接操作TFlowLayout的Controls集合，改用Children或设置Parent
• 子控件必须有明确的尺寸：要么开启AutoSize，要么手动设置宽高，否则会因尺寸为0而无法显示
• TFlowLayout会根据子控件的尺寸自动进行流式排列，无需额外配置行列集合（和GridPanel不同）

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