Скачать: CL | DM;

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

← →
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 ©   (2002-10-08 21:39) [6]

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

---

← →
AL2002 ©   (2002-10-08 21:43) [7]

Я так и думал.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c