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

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

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

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

Forumregeln