Создание массива компонетов

← →
SilverDragon © (2005-01-29 20:21) [0]

Необходимо создать массив компонентов, разных классов. К примеру что бы в одном массиве хранились ссылки на компоненты классов TEdit, TCombobox, TCalendar.
Это необходимо для динамического создания элементов и их последовательного опроса

← →
Knight © (2005-01-29 20:25) [1]

Напрашивается TList... и храни чё хошь...

← →
Vaitek © (2005-01-29 21:44) [2]

Array of TComoponent ?

← →
GuAV © (2005-01-29 21:52) [3]

TList или TObjectList

или если у всех owner тот же компонент (напр форма), то у него св-во componenmts

← →
SilverDragon © (2005-01-30 00:13) [4]

GuAV а можно поподробнее
я пытаюсь делать так
Var Ar: array[1..100] of TComponent; Begin Ar[1]:=Tedit.create(Form1); Ar[1].Name:="Edits1"; End;
Программа выполняеться но элемент создаеться только в память но не на форме

← →
olookin © (2005-01-30 00:30) [5]

[4] SilverDragon © (30.01.05 00:13)
GuAV а можно поподробнее
я пытаюсь делать так

Var
Ar: array[1..100] of TComponent;

Begin
Ar[1]:=Tedit.create(Form1);
Ar[1].Parent:=Form1;
Ar[1].Name:="Edits1";
End;

← →
SilverDragon © (2005-01-30 11:52) [6]

[4] olookin

мысль конечно хорошая, но такой функции (Ar[1].Parent:=Form1) нет у этого элемента

← →
P.N.P. © (2005-01-30 12:01) [7]

TEdit(Ar[1]).Parent:=Form1

← →
P.N.P. © (2005-01-30 12:08) [8]

Все-таки ObjectList лучше будет, он специально предназначен
для таких вот ситуаций.

Var
Obj:TObjectList;
x:integer;

begin
Obj:=TObjectList.Create;
x:=Obj.Add(TEdit.Create(Form1));
TEdit(Obj[x]).Parent:=Form1;
TEdit(Obj[x]).Name:="Dynamic_Edit"+IntToStr(x);
end;

[4]P.N.P
я конечно извеняюсь но Delphi сообщает о неизвестности TObjectList
может какую библиотеку надо подрубить ???

Не поможет, слишком у тебя широкий спектр. Пиши свою реализацию TObjectList, более того пиши TComponentList

ВСЕМ большое спасибо, уже разобрался со всем
большая блогодарность P.N.P

Создание массива компонетов Найти похожие ветки