51 TShape's zur laufzeit erstellen...

[Pseudemys Nelsoni]

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