Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Помогите ПОЖАЛУЙСТА -- Label   Найти похожие ветки 

← →
Suharew ©   (2003-02-04 14:46) [0]

Есть 100 Label`ов как сделать что-то вроде
for i:=1 to 100 do label[i].caption:=inttostr(i);
тоесть всем label присвоить текст.

---

← →
Clickmaker ©   (2003-02-04 14:56) [1]

for i := 0 to ControlCount-1 do begin
if (Controls[i] is TLabel) then TLabel(Controls[i]).Text := IntToStr(i);
end;

---

← →
malkolinge ©   (2003-02-04 14:59) [2]

Да толко видиться мне, что Грид юзать надо :)

---

← →
___ALex___ ©   (2003-02-04 15:12) [3]

можно так
создавать динамически Label-ы
типа
// что-то типа этого кода повесь на событие OnActivate формы
var
MasL: Array[1..100] of TLabel;
i: Byte;
begin

for i := 1 to 100 do begin
MasL[i] := TLabel.Create(Form1);
MasL[i].Parent := Form1;
end;
// размещаешь их в нужные места на форме
// ну и потом индексируешь как надо типа
// for i := 1 to 100 do MasL.Caption := "Label" + IntToStr(i);

end.

---

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

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c