Текущий архив: 2004.04.25;
Скачать: CL | DM;
Вниз
Создание экзепляров компонентов в 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]F1
← →
Анатолий Ксюндзский (2004-04-10 18:12) [12]ну так я вообще не понял в чём ошибка, что в хелпе смотреть?
← →
Анатолий Ксюндзский (2004-04-10 18:53) [13]ОГО!
Я нашёл.
Спасиб
← →
Gero © (2004-04-10 22:20) [14]
> [3] Piter © (10.04.04 14:06)
> Только зачем var Buttons : array of TButton; объявлять...
Для удобства, не более.
← →
Piter © (2004-04-10 23:13) [15]Palladin (10.04.04 14:32) [4]
Иногда таким образом проще обращатся к вновь созданным объектам
чем проще? Зачем к ним вообще обращаться? Имхо, создав компонент (по крайней мере такой как TButton), надо только обработчики событий присвоить и все. Остальной функционал в них...
Тем более, если уж в качестве Owner указывать форму, то всегда к услугам свойство Components
← →
Palladin © (2004-04-11 19:44) [16]
> чем проще?
button[i].Caption:="Кнопка"+IntToStr(i)
проверни подобное через FindComponent
Страницы: 1 вся ветка
Текущий архив: 2004.04.25;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.04 c
