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




Вниз

поместить объект в TList 


Eraser   (2002-03-06 10:26) [0]

создал ряд компонентов TcomboBox и теперь хотелось бы поместить на них указатели в TList чтобы потом можно было с ними удобнее работать (создать допустим еще один или удалить из имеющихся).
Если пробую с готовым объектом то все получается, а когда создаются через цикл то никак.
Код начальный такой:

const
md_kol=3;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
gr3:= TGroupBox.Create(Self);
with gr3 do begin
Parent:=Form1;
caption:="Порт";
left:=16;
top:=35;
Width:=90;
height:=md_kol*29;
end;

for i:=1 to md_kol do
with TComboBox.Create(self) do begin
Name:="P"+IntToStr(i);
Parent:=gr3;
Style:=csDropDownList;
Height:=24;
Width:=70;
Left:=10;
Top:=i*22-7;
for j := 0 to 9 do Items.Add("COM"+inttostr(j+1));
end;
end;

надо указатель на каждый Tcombobox поместить в TList



DieHard   (2002-03-06 10:38) [1]

Придется завести переменную ComboBox:TComboBox
ComboBox:=TComboBox.Create(Self);
...
List.Add(Pointer(ComboBox));



Reindeer Moss Eater   (2002-03-06 10:58) [2]


with List.Add(TComboBox.Create(Self)) as TCombobox do
begin
Parent:=...

end



Lusha   (2002-03-06 13:03) [3]

>DieHard
Можно обойтись и без переменной... :-)
>Reindeer Moss Eater
Access Violation Expected



Reindeer Moss Eater   (2002-03-06 15:47) [4]

Ну разумеется. Вот так надо

with TCheckBox(List[List.Add(TCheckBox.Create(Self))]) do
begin
Parent:=Self;




Lusha   (2002-03-06 15:54) [5]

>Reindeer Moss Eater
Именно...
...надеюсь, что Erasor поймет, что речь идет о TComboBox-ах...
:)



Lusha   (2002-03-06 15:56) [6]

Ну, и то что надо все же вычесть единичку... :)



Lusha   (2002-03-06 15:57) [7]

Не-е-е. Не надо...



Romkin   (2002-03-06 16:14) [8]

Вопрос - а зачем? в gr3.Components все уже лежит (все его подчиненные TComboBox), и гораздо удобнее, чем с TList



Lusha   (2002-03-06 16:25) [9]

>Romkin
Автору виднее... А особого удобства (за исключением отсутствия самого TList) я лично не вижу.




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




Наверх





Память: 0.72 MB
Время: 0.02 c
1-66838           alex125               2002-03-06 18:15  2002.03.21  
ошибка при вызове popupmenu


1-66811           AndrewK               2002-03-05 11:46  2002.03.21  
QuickReport конфликтует с драйвером принтера


4-67060           michael_B             2002-01-11 18:31  2002.03.21  
как проиграть *.wav без использования компонентов(MediaPlayer).


4-67062           Yaro                  2001-12-26 21:59  2002.03.21  
Удаление из реестра Windows


14-67000          azik                  2002-02-05 13:15  2002.03.21  
Люди помогите разобратся с сервисами в Delphi. Спасибо !!!