Delphi заготовки

пример создания объектов типа TCombobox в режиме работы программы


var a2:array of Tcombobox; { объявляем массив неограниченного числа  элементов а2 типа  Tcombobox;
}
    X:integer;
begin
// на форме уже есть один  combobox1
// может быть с текстом
{
combobox1.AddItem('123',NIL);
 combobox1.AddItem('888',NIL);
}

SetlengtH(a2,10); // задаем размер массива из 10 элементов

  for x:=0 to 9 do begin
    a2[x]:=Tcombobox.Create(form1); { выполняем создание массива . задаем родительский элемент }

    a2[x].parent:=form1; { где создаем объект. можно поставить Panel1 или другой компонент  }
    a2[x].left:=50;
    a2[x].top:=25*x;
    a2[x].Items.Text:=form1.ComboBox1.Items.Text; // список элементов
    a2[x].text:=inttostR(X); //  текущий текст
  end;

end;< ... Читать дальше »