möchte gerne mehrere objekte(Shapes) erzeugen (zur laufzeit)

[KoRn117]

ich habe folgenden code um ein shape zu erzeugen(zur laufzeit). Dann wird es noch etwas verrückt (ich auch )und verschoben und dann ist es da wo es hin soll.

Das Problem er geht nur einmal die schleife durch dann bleibt er vor #### stehen.

ich möchte das er mir x shapes (kreise) untereinander erzeugt / zeichnet.
Habt ihr mein Prob verstanden???

helft mir bitte! sonst werde ich -> - -Scherz

Delphi-Quellcode:

procedure XLEDsMalen(ALEDs : integer);
Var ShapeX : TShape;
    i : integer;
Begin

for i := 1 to 8 do//ALEDs do
begin
  // SHAPE ERZEUGEN
  ShapeX := TShape.Create(form1);
  ShapeX.Name :='Shape'+inttostr(ALEDs+1);

####

Delphi-Quellcode:

  ShapeX.Parent := form1;
  // und INITALISIEREN
  shapex.Width := 17;
  shapex.Height := 17;
  shapex.Top := (i*16);
  shapex.Left := 144;
  shapex.Shape := stCircle;
  shapex.Brush.Color := clMaroon;
  shapex.FreeOnRelease;
end; // ende der for 1 to aleds

End; // ENDE ENDE XLEDsMalen(leds : integer);

[KoRn117]

sorry leute war ein kleiner dummer fehler der mir eben gleich nach dem ich das hier reingestellt hatte aufgefallen ist

[SirThornberry]

jep, hast wohl irgendwo vergessen ALEDs im schleifendurchlauf zu ändern bzw. gleich i zu verwenden. Nobody is perfekt, selbst nen weihnachtsmann tringt mal zu viel