Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.01 c
9-38003
Stucker
2002-09-01 12:26
2003.02.13
Типа голосование (DirectX and OpenGL)


9-38000
Ev_genus
2002-05-10 12:41
2003.02.13
Чем DelphiX хуже Direct API. (Это не вопрос)


3-38069
dimmu3
2003-01-27 08:33
2003.02.13
ограничение на длинну строки в DBGrid


3-38118
Shil
2003-01-27 19:32
2003.02.13
как вытащить тип данных image на asp


7-38617
DS
2002-12-06 10:48
2003.02.13
Преобразовать TXT в TIFF





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский