FindComponentes "TShape faerben"

[aayb]

Ahhh

Okay - ich glaub ich habs. Danke dir!

Leider gibts jetzt ein neues "kleines" Problem (Ich schmeiss die Frage einfach mal noch unterhalb meines Threads - gehoert schliesslich auch dazu)

Die Namen bekomme ich ja nun raus, allerdings sollen die Farben aus einem Array rausgeholt werden.
(Ueber ein Integer-"Flag" soll die Applikation nachher verschieden aussehen)

Ich weise also die Farbe nachfolgend zu:

TShape(Components[i]).Brush.Color := ColorTitleLine[YourID];

ColorID steht auf "2"

ColorTitleLine ist ein "array[1..3] of Cardinal"

und der Array-eintrag hierzu:
ColorTitleLine[2] := rgb(123,123,123);

Bei anderen Zuweisungen bspw EditX.Text := MeinText[YourID]; funktioniert das ganze. (MeinText ist ein array of strings)
Der Fehler scheint also beim array of Cardinal zu liegen. Nur wo?

Besten Dank nochmal
Gr.
aayb