Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
ВнизЗадать свойства сразу нескольким контролам? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c