Создание компонент

← →
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 у него куда теперь подевалось?

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

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

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

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

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