shape1+1 ?

[malo]

Zitat:

Zitat von Pr0g

Warum postest du das nach ner halben Stunden nochmal? :lol:

Ich hatte ja schon geschrieben, nur noch nicht abgeschickt :oops:

[Airblader]

Zitat:

Zitat von malo

Zitat:

Zitat von Pr0g

Warum postest du das nach ner halben Stunden nochmal? :lol:

Ich hatte ja schon geschrieben, nur noch nicht abgeschickt :oops:

Doch, hattest du schon.
Vertrau mir, ich weiss es :zwinker: :mrgreen:

[Potestas]

So ich habe das alles mal so eingebaut, wie es eigentlich sollte. Gibt da nur nen Problem:

Zitat:

oncreate:
ShapeArray[i] := TShape.Create(self); // erzeugen

ist das alles was er braucht, damit er die erstellt? Die Shapes werden scheinbar erstellt, doch sind nicht sichtbar.

Zitat:

//10 Shapes erzeugen
for i := 1 to 10 do
begin
Shape := TShape.Create(Self);
Shape.Parent := Self;
Shape.Name := 'Shape' + IntToStr(i);
Shape.Left := 10 * i + 10;
Shape.Top := 10;
Shape.Width := 5;
Shape.Height := 5;
ShapeList.Add(Shape);
end;

Ich hab diesen Teil nun komplett weggelassen, doch ich bin mir sicher, das sowas in der Art doch auch oben bei dem ShapeArray stehen muss ?!

[malo]

Du kannst den Teil (fast) übernehmen. Ändere nur jedes "Shape" in "ShapeArray[i]".

Delphi-Quellcode:

 Shape.Name := 'Shape' + IntToStr(i);

und

Delphi-Quellcode:

 ShapeList.Add(Shape);

musst du nur ganz weglassen ;)

[Potestas]

Wooooooohohoho :)
Funktioniert :)
Ihr seid die besten --> Vielen Dank an euch alle für die Tipps,Hilfe und Ausdauer
Weiß ja nun wo ich Hilfe bekomme wenn ich hänge