Форум: "Основная";
Текущий архив: 2003.02.13;
Скачать: [xml.tar.bz2];
ВнизПомогите ПОЖАЛУЙСТА -- 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.024 c