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

markieren

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);

####

zusammenfalten · markieren

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);

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

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