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

Поменять свойства у однаковых компонентов   Найти похожие ветки 

← →
vil ©   (2003-07-17 13:11) [0]

На форме есть несколько одинаковых
Lable1
Lable2
Lable3
Lable4... (отличаются только цифрой в конце Name)
Как покомпактней (в смысле код не раздувать)у всех этих компонентов поменять свойство
Lable1.Visible:=true

---

← →
Skier ©   (2003-07-17 13:16) [1]

LabelsOwner.FindComponent(...) + кастинг.

---

← →
Mike_Goblin ©   (2003-07-17 13:17) [2]

Приблизительно так:
for Cnt:=0 to Form1.ComponentCount-1 do
if Form1.Components[Cnt] is TLabel then
TLabel(Form1.Components[Cnt]).Visible:=true;

---

← →
Leshiy ©   (2003-07-17 14:13) [3]

Если только лейблы и количество известно то:
for i:=1 to n do
TLabel(FindComponent("Label"+IntToStr(i))).Visible:=true;

---

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

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



Память: 0.45 MB
Время: 0.04 c