Befehle für mehrere Objects gleichzeitig?!

[Luzifer666]

Ich habe in einer Form 20 Shapes, und will allen gleichzeitig befehlen, sich weiß zu färben.
Das geht doch sicher auch ohne

Shape1.brush.color:=clwhite;
Shape2...
Shape3...

Oder?

[Nicolai1234]

findcomponent

[JasonDX]

klar, per forschleife und findcomponent
so ca.

Delphi-Quellcode:

for i := 1 to 10 do
  TShape(FindComponent(Format('Shape%d', [i]))).brush.Color := clWhite;

statt 10 musst du halt die anzahl deiner Shapes angeben...

[Edit] 2 slow...

[Robert_G]

@Nicolai1605
Hättest du selbst gesucht, wäre dir der Thread aufgefallen: http://www.delphipraxis.net/internal...=194341#194341
IMHO ist FindComponent eine sinnlose Funktion, die sich eher an NewBies richtet.

@Teufelchen
Für deine Zwecke ist TForm.Components als array of TComponent viel interessanter. ;)

Delphi-Quellcode:

for i := 0 to pred(ComponentCount) do
  if Components[i] is TShape then
    TControl(Components[i]).brush.Color := clWhite;