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

Вниз

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

← →
Maxx   (2003-06-02 12:51) [0]

Подскажите как создать динамически во время выполнения программы пару сотен Label-ов? Очень надо, пожалуйста!

---

← →
Skier   (2003-06-02 12:54) [1]

for ii := 0 to Пару_сотен - 1 do begin
with TLabel.Create(...) do begin
//............
Parent := ???;
//............
end; //with
end; //for

---

← →
Maxx   (2003-06-02 15:38) [2]

>> Skier © (02.06.03 12:54)
Спасибо, получилось, правда побольше чем пару сотен :), а как мне теперь обратиться к определенному Label, например к 101-му?

---

← →
Skier   (2003-06-02 15:45) [3]

1) По имени LabelsOwner.FindComponent(...)
2) По индексу, если занести все метки в список или массив
3) Можно ещё использовать св-во TLabel.Tag для идентификации
метки.

---

← →
Sandman25   (2003-06-02 15:48) [4]

1. При создании даете имя "Label"+IntToStr(i) и теперь можно FindComponent("Label101")
2. При создании записываете ссылку на объект в массив (динамический, если число компонент заранее неизвестно).

---

← →
MalkoLinge   (2003-06-02 16:09) [5]

Рекомендовал бы TObjectList для хранения объектов

---

← →
Pattern   (2003-06-02 16:18) [6]

var
edt_: array[1..200] of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
for i_ := 1 to 20 do
begin
edt_[i_] := TLabel.Create(Self);
edt_[i_].Parent := Self;
edt_[i_].Left := 10;
edt_[i_].Text := "Edit " + IntToStr(i_);
edt_[i_].Top := i_ * 20;
end;
end;
Из этого следует что Edit 1 - edt_[1], Edit 2 - edt_[2] и т. д.

---

← →
Maxx   (2003-06-03 11:50) [7]

...
bol := Form1.FindComponent("i10j10");
...
Находится, а свойство Caption у него куда теперь подевалось?

---

← →
Skier   (2003-06-03 11:54) [8]

>Maxx (03.06.03 11:50)
Приводить к нужному типу не пробовал ?

---

← →
Maxx   (2003-06-03 17:17) [9]

Спасибо, с этим разобрался, а как теперь создать событие на динамически созданный компонент?
...
(Components[i] as TLabel).OnClick ?
...

---

← →
Skier   (2003-06-03 17:29) [10]

Книги + Статьи на этом сайте

---

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

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

Наверх

Память: 0.46 MB
Время: 0.011 c