hallo, bei mir geht das:
Delphi-Quellcode:
procedure TForm1.FormActivate(Sender: TObject);
var
disp: Array[1..51] of TShape;
i: integer;
begin
for i := 1 to 51 do
begin
disp[i] := TShape.Create(Form1);
with disp[i] do
begin
Parent := Form1;
Width := 100;
Height := 100;
end;
end;
end;
EDIT: bah, immer ist jemand vor mir
