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