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 :mrgreen: )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??? :gruebel:

helft mir bitte! sonst werde ich -> :twisted: - :-D -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


:oops: :oops: :oops:
:oops: :oops: :oops:
:oops: :oops: :oops:

[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