Delphi:每个控件之间的TFlowPanel边距

时间:2016-08-19 12:22:30

标签: delphi controls margin flowpanel

我正在使用TFlowPanel,并且在运行时我在其上创建了可变数量的控件(在此示例中为TButton)。 我想在每个控件之间创建一个边距,但它还没有工作。

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  LButton: TButton;
begin
  for i := 0 to 10 do
  begin
    LButton := TButton.Create(flwpnl1); // flwpnl1 is the TFlowPanel
    LButton.Parent  := flwpnl1;
    LButton.Height  := 20;
    LButton.Caption := Format('Status%d', [i]);
    LButton.Margins.Left   := 20;
    LButton.Margins.Top    := 20;
    LButton.Margins.Right  := 20;
    LButton.Margins.Bottom := 20;
  end;
end;

Example

任何想法为什么?

问候并感谢, 丹尼斯

1 个答案:

答案 0 :(得分:3)

您需要将AlignWithMargins设置为true,因此在您的代码中将是:

LButton.AlignWithMargins := true;