Текущий архив: 2005.12.25;
Скачать: CL | DM;

Вниз

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

← →
markers ©   (2005-12-11 14:31) [0]

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

---

← →
Sergey Masloff   (2005-12-11 14:39) [1]


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) [2]

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

---

← →
markers ©   (2005-12-11 14:42) [3]

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

---

← →
злобная танька ©   (2005-12-11 14:43) [4]

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 17:28) [5]

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

---

← →
markers ©   (2005-12-11 17:53) [6]

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

---

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

Текущий архив: 2005.12.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.025 c