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

← →
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;

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