Задать свойства сразу нескольким контролам?

← →
AL2002 © (2002-10-08 21:11) [0]

Есть несколько Shape(ов).
Можно ли как-то то ли переменную создать, то ли циклом, то ли ещё как менять им всем их свойства?
Что-то типа
AllTheseShapes:=Shape1,Shape2,Shape3;
AllTheseShapes.Pen.Width:=5;?
(Это я так представляю, а как в действительности я не знаю).

← →
Rouse_ © (2002-10-08 21:19) [1]

2 варианта, создать массив MAs: array [0..100] of TShape;

Второй вариант, в случае если у тебя начальные имена одинаковые (Shape1, Shape2 и т.д.), то так:

TShape(findcomponent("Shape"+ inttostr(i))).Pen.Width := 5;

Желаю успехов

← →
Jeer © (2002-10-08 21:24) [2]

Дополнительно:
Создавай Shapes в run-time, тогда имена и количество легко контролируются.

← →
AL2002 © (2002-10-08 21:27) [3]

>Jeer © (08.10.02 21:24)
Тока циклом. Как жаль.
А Setом низя?

← →
Jeer © (2002-10-08 21:32) [4]

О чем речь ?
Если компоненты созданы в design, то имена известны.
Если в run - то имена сам задаешь в цикле создания MyShape+inttostr(i) - тоже известны.

← →
AL2002 © (2002-10-08 21:36) [5]

>О чем речь ?
Я имею в виду:
Var
AllTheseShapes: Set of [Shape1, Shape2...]

Фантазия?

Похоже очень:))

Я так и думал.

Спасибо, Jeer. :)

Задать свойства сразу нескольким контролам? Найти похожие ветки