FindComponentes "TShape faerben"

[alzaimar]

Lass Dir einfach die Komponentennamen ausgeben: Schmeiss ein Memo auf die Form und dann

Delphi-Quellcode:

For i:=0 to ComponentCount-1 do
  Memo1.lines.add(Format('%3d: %s',[i,Components[i].Name]));

Dann wirst du es verstehen.

Alternativ geht es so:

Delphi-Quellcode:

Var
  ShapeComponent : TComponent;

For i:=1 to YourShapeCount do Begin
  ShapeComponent := FindComponent(Format('shpHeader%d',[i]));
  If Assigned (ShapeComponent) And (ShapeComponent is TShape) Then
    TShape (ShapeComponent).Color := YourColor;

Die Methode 'FindComponent' sucht die Komponente mit dem angegeben Namen.