Консультация № 109887
17.11.2007, 19:23
0.00 руб.
0 1 1
Имею на форме 24 одинаковых компонента - Shape1..Shape24. Как мне перебирать их в цикле???

Обсуждение

Неизвестный
17.11.2007, 19:59
общий
это ответ
Здравствуйте, Shell!

У каждого компонента, есть метод FindComponent. Он ищет все дочерние компоненты с указанным именем.

var i: integer;
//...
for i:=1 to 24 do
TShape(Form1.FindComponent(‘Shape‘+inttostr(i))).Brush.Color:=clRed;
//...
Форма ответа