shape1+1 ?

[malo]

Zitat von Pr0g:

Warum postest du das nach ner halben Stunden nochmal?

Ich hatte ja schon geschrieben, nur noch nicht abgeschickt

[Airblader]

Zitat von malo:

Zitat von Pr0g:

Warum postest du das nach ner halben Stunden nochmal?

Ich hatte ja schon geschrieben, nur noch nicht abgeschickt

Doch, hattest du schon.
Vertrau mir, ich weiss es

[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]".
 Shape.Name := 'Shape' + IntToStr(i); und  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