У меня есть 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 := "пример";

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