Flowpanel geeignetes Control ?

[v2afrank]

Zitat von Der schöne Günther:

Das FlowPanel kennst du ja schon.

Ich kenne es vom Namen her. Genutzt habe ich es noch nicht

Was Du mit Deiner Wurzel meinst verstehe ich wiederum nicht.
Im Prinzip soll es vier Möglichkeiten geben. Hätte ich sofort alle schreiben sollen
1 | 2 | 3
4 | 5 | 6

1 | 2
3 | 4

1 | 2

1

Ich hoffe jetzt ist es klar. Hätte ich wirklich sofort schreiben können. Entschuldigung

[CarlAshnikov]

Ich habe mal was gebastelt wie ich es lösen würde. Voraussetzung sind ein Gridpanel und zwei Spinedits zum einstellen der Zeilen und Spalten dann kannst du probieren ob das das ist was du brauchst:

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    gpTest: TGridPanel;
    bTest: TButton;
    seRows: TSpinEdit;
    seCols: TSpinEdit;
    procedure bTestClick(Sender: TObject);

  private
    procedure AddControlsToGridPanel(AGridPanel: TGridPanel; ARows, ACols: integer;
      AControls: TArray<TControl>);

  public
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.AddControlsToGridPanel(AGridPanel: TGridPanel; ARows, ACols: integer;
  AControls: TArray<TControl>);
var
  i: integer;
begin
  Assert(ARows * ACols = Length(AControls));
  AGridPanel.ControlCollection.Clear;
  with AGridPanel do
  begin
    ColumnCollection.BeginUpdate;
    if ColumnCollection.Count <> ACols then
    begin
      ColumnCollection.Clear;
      for i := 0 to ACols - 1 do
      begin
        ColumnCollection.Add;
        ColumnCollection.Items[i].Value := 50;
      end;
    end;
    ColumnCollection.EndUpdate;

    RowCollection.BeginUpdate;
    if RowCollection.Count <> ARows then
    begin
      RowCollection.Clear;
      for i := 0 to ARows - 1 do
      begin
        RowCollection.Add;
        RowCollection.Items[i].Value := 50;
      end;
    end;
    RowCollection.EndUpdate;
  end;

  for i := Low(AControls) to High(AControls) do
  begin
    AControls[i].Parent := AGridPanel;
    AControls[i].Align := alClient;
  end;
end;

procedure TForm2.bTestClick(Sender: TObject);
var
  vControls: TArray<TControl>;
  vB:        TButton;
  i:         integer;
begin
  Setlength(vControls, seRows.Value * seCols.Value);
  for i := 0 to seRows.Value * seCols.Value - 1 do
  begin
    vB := TButton.Create(gpTest);
    vB.Caption := i.tostring();
    vControls[i] := vB;
  end;
  AddControlsToGridPanel(gpTest, seCols.Value, seRows.Value, vControls);
end;

[v2afrank]

Perfekt. Das ist es. Genauso wollte ich es haben. Danke vielmals

[Der schöne Günther]

BeginUpdate()/EndUpdate() ohne try..finally ist aber auch mutig.

[CarlAshnikov]

Das ist richtig, ich schrieb aber auch gebastelt

Hier die verbesserte Variante:

Delphi-Quellcode:

procedure TForm2.AddControlsToGridPanel(AGridPanel: TGridPanel; ARows, ACols: integer;
  AControls: TArray<TControl>);
var
  i: integer;
begin
  Assert(ARows * ACols = Length(AControls));
  AGridPanel.ControlCollection.Clear;
  with AGridPanel do
  begin
    ColumnCollection.BeginUpdate;
    try
      if ColumnCollection.Count <> ACols then
      begin
        ColumnCollection.Clear;
        for i := 0 to ACols - 1 do
          ColumnCollection.Add.Value := 50;
      end;
    finally
      ColumnCollection.EndUpdate;
    end;

    RowCollection.BeginUpdate;
    try
      if RowCollection.Count <> ARows then
      begin
        RowCollection.Clear;
        for i := 0 to ARows - 1 do
          RowCollection.Add.Value := 50;
      end;
    finally
      RowCollection.EndUpdate;
    end;
  end;

  for i := Low(AControls) to High(AControls) do
  begin
    AControls[i].Parent := AGridPanel;
    AControls[i].Align := alClient;
  end;
end;