| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Задать свойства сразу нескольким контролам? [D6, Win95/98]
AL2002 © (2002-10-08 21:11:00)Есть несколько Shape(ов).
Можно ли как-то то ли переменную создать, то ли циклом, то ли ещё как менять им всем их свойства?
Что-то типа
AllTheseShapes:=Shape1,Shape2,Shape3;
AllTheseShapes.Pen.Width:=5;?
(Это я так представляю, а как в действительности я не знаю).
AL2002 (2002-10-08 21:43:00) [1]Я так и думал.
Спасибо, Jeer. :)
Jeer (2002-10-08 21:39:00) [2]Похоже очень:))
AL2002 (2002-10-08 21:36:00) [3]>О чем речь ?
Я имею в виду:
Var
AllTheseShapes: Set of [Shape1, Shape2...]
Фантазия?
Jeer (2002-10-08 21:32:00) [4]О чем речь ?
Если компоненты созданы в design, то имена известны.
Если в run - то имена сам задаешь в цикле создания MyShape+inttostr(i) - тоже известны.
AL2002 (2002-10-08 21:27:00) [5]>Jeer © (08.10.02 21:24)
Тока циклом. Как жаль.
А Setом низя?
Jeer (2002-10-08 21:24:00) [6]Дополнительно:
Создавай Shapes в run-time, тогда имена и количество легко контролируются.
Rouse_ (2002-10-08 21:19:00) [7]2 варианта, создать массив MAs: array [0..100] of TShape;
Второй вариант, в случае если у тебя начальные имена одинаковые (Shape1, Shape2 и т.д.), то так:
TShape(findcomponent("Shape"+ inttostr(i))).Pen.Width := 5;
Желаю успехов
| |
