| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите ПОЖАЛУЙСТА -- Label [i] [D6, Win95/98]

Suharew ©   (2003-02-04 14:46:00) 

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

---

___ALex___   (2003-02-04 15:12:00) [1]

можно так
создавать динамически 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.

---

malkolinge   (2003-02-04 14:59:00) [2]

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

---

Clickmaker   (2003-02-04 14:56:00) [3]

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

---

Наверх