Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by CarlAshnikov,
29. Jan 2018
Das ist richtig, ich schrieb aber auch gebastelt :-D
Hier die verbesserte Variante:
procedure TForm2.AddControlsToGridPanel(AGridPanel: TGridPanel; ARows, ACols: integer;
AControls: TArray<TControl>);
var
i: integer;
begin
Assert(ARows * ACols = Length(AControls));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by CarlAshnikov,
29. Jan 2018
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:
type
TForm2 = class(TForm)
gpTest: TGridPanel;
bTest: TButton;
seRows: TSpinEdit;
seCols: TSpinEdit;
procedure bTestClick(Sender: TObject);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by CarlAshnikov,
29. Jan 2018
Ich denke mit einem Gridpanel sollte das klappen. Einfach die Zeilen und Spalten entsprechend anlegen. Das Hinzufügen sollte in der Reihenfolge sein wie du es haben möchtest. Wichtig ist, wenn alle Zeilen und Spalten gleich groß sein sollen, dass diese gleichzeitg auf die Größe gesetzt werden mit beginUpdate und endUpdate.