7

私は 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;

例

理由はありますか?

よろしく、ありがとう、デニス

4

1 に答える 1