Массив компонентов IВозможно ли создание

Массив компонентов IВозможно ли создание массива компонентов? Для показа статуса я использую набор LED-компонентов и хотел бы иметь к ним доступ, используя массив.Прежде всего необходимо объявить массив:

LED : array[1..10] of TLed; (10 элементов компонентного типа TLed)

При необходимости динамического создания LED-компонентов организуйте цикл, пример которого мы приводим ниже:

for counter := 1 to 10 dobeginLED[counter]:= TLED.Create;LED[counter].top := ...LED[counter].Left := ...LED[counter].Parent := Mainform; {что-то типа этого}end;

Если компоненты уже присутствуют на форме (в режиме проектирования), сделайте их элементами массива, например так:

leds := 0;for counter := 0 to Form.Componentcount dobeginif (components[counter] is TLED) thenbegininc(leds);LED[leds] := TLED(components[counter]);endend;

Тем не менее у нас получился массив со случайным расположением LED-компонентов. Я предлагаю назначить свойству Tag каждого LED-компонента порядковый номер его расположения в массиве, а затем заполнить массив, используя это свойство:

for counter := 0 to Form.Componentcount dobeginif (components[counter] is TLED) thenbeginLED[Component[counter].tag] := TLED(components[counter]);endend;

Если вам нужен двухмерный массив, то для формирования индекса понадобится другая хитрость, например, хранение в свойстве Hint информации о времени создания компонентов. [000055]



Создание компонента во время работы приложения

Var MyButton : TButton; MyButton := TButton.Create(MyForm); // MyForm теперь "обладает" MyButton with MyButton do BEGINParent := MyForm; // Выбираем родителей. MyForm "усыновляет" MyButtonheight := 32;width := 128;caption := 'Я здесь!';left := (MyForm.ClientWidth - width) div 2;top := (MyForm.ClientHeight - height) div 2;END;

Inprise также рассказывала об этом в выпусках TechInfo.

Поищите

ti2938.asc Creating Dynamic Components at Runtime

на публичном WWW или FTP сайте компании Inprise. [000057]


Содержание раздела

---

---