Ok, aber wie würde das mit den Arrays gehen ?
Also ich würde dann so was in der Art machen:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
a: TButton;
i: Integer;
begin
for i:=1 to 100 do begin
a := TButton.Create(self);
a.Parent := Form1;
a.Visible := True;
a.Top := 50*i+10;
a.Left := 10;
a.Width := 100;
a.Height := 45;
a.Caption := 'Der '+inttostr(i)+'. Button!';
end;
end;
Aber wie meint ihr das mit dem Array ?
Danke!