Создание экзепляров компонентов в runtime

← →
Анатолий Ксюндзский (2004-04-10 12:49) [0]

Приведите пожалуйста пример создания N TButton на форме.
Спасибо.

← →
Gero © (2004-04-10 12:54) [1]

var Buttons : array of TButton;
procedure TForm1.CreateNButtons(N : Integer);
var
i : Integer;
begin
SetLength(Buttons, N);
for i := 0 to N - 1 do
begin
Buttons[i] := TButton.Create(Self);
with Button[i] do
begin
Parent := Self;
{ Другие свойства }
end;
end;
end;

← →
Анатолий Ксюндзский (2004-04-10 13:17) [2]

Большое спасибо

← →
Piter © (2004-04-10 14:06) [3]

Только зачем var Buttons : array of TButton; объявлять...

← →
Palladin © (2004-04-10 14:32) [4]

> Piter © (10.04.04 14:06) [3]

Иногда таким образом проще обращатся к вновь созданным объектам.

← →
Анатолий Ксюндзский (2004-04-10 15:01) [5]

а TTabSheet как так создать?

← →
Анатолий Ксюндзский (2004-04-10 15:01) [6]

Аналогично??

← →
Palladin © (2004-04-10 15:03) [7]

А чем TTabSheet отличается от TButton?

← →
Анатолий Ксюндзский (2004-04-10 15:11) [8]

var tabs : array of TTabSheet; procedure tform1.addpage(name: string); var cur: integer; begin cur:=length(tabs)+1; SetLength(tabs,cur); tabs[cur]:=TTabSheet.Create(total); tabs[cur].Caption:=name; end;
Новой закладки не появляется...

ЗЫ: total это TPageControl

← →
Palladin © (2004-04-10 15:19) [9]

А PageControl Пушкин будет присваивать?

← →
Анатолий Ксюндзский (2004-04-10 15:27) [10]

если можно, примерчик.. +)

← →
Palladin © (2004-04-10 15:32) [11]

← →
Анатолий Ксюндзский (2004-04-10 18:12) [12]

ну так я вообще не понял в чём ошибка, что в хелпе смотреть?

← →
Анатолий Ксюндзский (2004-04-10 18:53) [13]

ОГО!
Я нашёл.

Спасиб

Palladin (10.04.04 14:32) [4]
Иногда таким образом проще обращатся к вновь созданным объектам

чем проще? Зачем к ним вообще обращаться? Имхо, создав компонент (по крайней мере такой как TButton), надо только обработчики событий присвоить и все. Остальной функционал в них...
Тем более, если уж в качестве Owner указывать форму, то всегда к услугам свойство Components

> чем проще?

button[i].Caption:="Кнопка"+IntToStr(i)

проверни подобное через FindComponent

Создание экзепляров компонентов в runtime Найти похожие ветки