| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

markers ©   (2005-12-11 14:31:00) 

Подскажите пожалуйста код, который динамически создаёт необходимое количество компонентов на форме например Labels

---

markers   (2005-12-11 17:53:00) [1]

Уже сделал! Спасибо! top := TPanel(ScrollBox1.Controls[ScrollBox1.ControlCount-2]).Top+TPanel(ScrollBox1.Controls[ScrollBox1.ControlCount-2]).Height ;

---

markers   (2005-12-11 17:28:00) [2]

А как обратиться к компоненту Tlabel[i-1]? Кроме поиска в цикле?

---

злобная танька   (2005-12-11 14:43:00) [3]

kolvo := 0;
neobhodimoe := 65535;

Repeat
 inc(kolvo);
 with TLabel.Create do
 begin
   parent := Form1;
   caption := 'caption' + IntToStr(kolvo);
   left := 100;
   top := 100;
 end;
Until kolvo = neobhodimoe;

---

markers   (2005-12-11 14:42:00) [4]

Спасибо!
А то забыл, как-то давали уже! А сейчас понадобился!

---

Sergey Masloff   (2005-12-11 14:39:00) [5]


for i := 0 to YOUR_CNST do
begin
 with TLabel.Create(YourForm) do
 begin
   Parent := YourForm;
   Name := 'DynLabel' + IntToStr(i);
 end;
end;


---

Sergey Masloff   (2005-12-11 14:39:00) [6]

Ну еще Top и Left разные им задать а то друг над другом будут ;-)

---

Наверх