Форум: "Основная";
Текущий архив: 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

---

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

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

Наверх

Память: 0.44 MB
Время: 0.005 c