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

У меня есть Label1...Label20   Найти похожие ветки 

← →
Viktor   (2003-05-15 16:20) [0]

Привет мастерам!
У меня есть Label1...Label20
Можно ли в Цикле, например изменить Caption := " Лабел №" + IntToStr(i)
for i := 1 to 20 do
begin
// какой код здесь должен быть???
end;

Заранее спасибо.

---

← →
Skier ©   (2003-05-15 16:24) [1]

>Viktor
1)LabelsOwner.FindComponent(...) + FoundComponent is TLabel +
TLabel(FoundComponent).Caption := "something..."
2)
for ii := 0 to LabelsOwner.ComponentCount - 1 do begin
if LabelsOwner.Components[ii] is TLabel then begin
TLabel(LabelsOwner.Components[ii]).Caption := "something...";
end; //if
end; //for

---

← →
Viktor   (2003-05-15 17:31) [2]

Спасибо, попробую.

---

← →
Александр из Минска ©   (2003-05-15 17:57) [3]

TLabel(FindComponent("Label"+IntToStr(i))).Caption := "пример";

---

← →
Palladin ©   (2003-05-16 00:10) [4]

> Александр из Минска © (15.05.03 17:57)

а если я TEdit назову Label1?

---

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

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



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