Zitat von
Nuclear-Ping:
Delphi-Quellcode:
// Absichtlich dynamisches Array
var
myCheckboxes: Array of TCheckbox;
a: Integer;
begin
SetLength (myCheckboxes, 30);
for a := 0 to Length (myCheckboxes) - 1 do
begin
myCheckboxes[a] := TCheckbox.Create (Self);
with myCheckboxes[a] do
begin
Parent := Self;
Name := 'Checkbox' + inttostr (a + 1);
Caption := 'Checkbox ' + inttostr (a + 1);
Width := 100;
Left := 8; // ggf anpassen falls du Spalten machen willst
Top := (a + 1) * 8;
end;
end;
end;
Sollte klappen. Nicht vergessen, die dann auch wieder freizugeben wenn du sie nicht mehr brauchst (Programmende).
Das ging schnell!
Vielen Dank, Spalten? könnte sein mal sehen wie ich die [x] Plaziere...