Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Вниз

Вопрос об описании объектов   Найти похожие ветки 

 
Prvodnick   (2002-11-19 06:03) [0]

Допустим, у меня есть N меток. Они описываются так
Label1:TLabel;
-------------
LabelN:TLabel;
Подскажите пожалуйста, можно ли для удобства работы с ними описать сие, ну напимер так (только например, я поэтому и спрашиваю)
Labels:array [1..N] of TLabel;
Динамическое создание в процессе выполнения знаю, а вот заранее?
СССпасибо.


 
MBo   (2002-11-19 06:18) [1]

описать можно, что не отменяет обязательного создания в run-time
http://www.delphikingdom.com/helloworld/runtime_comp.htm


 
Walker   (2002-11-19 06:20) [2]

дык пожалуйста:)
делаешь переменную
var
Labels: array[1..N] of TLabel;

затем в OnFormCreate

var
i: Integer;
l: TLabel;
begin
for i := 1 to N do
begin
что-то вроде l := TLabel(Form1.FindComponentByName("Label"+IntToStr(i)));
Labels[i] := l;
end;
end;



 
Walker   (2002-11-19 06:20) [3]

(он опередил меня на 2 секунды... :)


 
тупень   (2002-11-19 06:21) [4]

Создай свой класс, в котором будет массив меток. А в конструкторе и сделай то, что ты называешь динамическим создание. И каждому элементу массива в свойстве tag присвой уникальный числовой идентификатор. Нас так на учебе с кнопками заставляют работать, могу сорсы прислать



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

Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
3-92827
STANT
2002-11-08 11:39
2002.11.28
Раскажите кто-нибудь, как пользоватся QReport


14-93248
Карлсон
2002-11-10 13:21
2002.11.28
хто цэ таке.


3-92854
Gregory
2002-11-09 09:39
2002.11.28
Удаление записей из Paradox


3-92875
BJValentine
2002-11-08 17:42
2002.11.28
Как достать список серверов в MS SQL?


1-93025
Maxx2000
2002-11-19 11:24
2002.11.28
Invalid floating point Operation





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский