Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.02 c