Текущий архив: 2006.04.23;
Скачать: CL | DM;

Вниз

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

← →
Gear   (2006-04-04 21:23) [0]

Здравствуйте! Как динамически создать кнопки на созданном динамически TToolBar? Делаю так и это не работает:

var
 TB:TToolBar;
 TBT:TToolButton;
 T: TTabSheet;
 ...
begin
 ...
 T := TTabSheet.Create(application);
 TB:=TToolBar.Create(application);
 TBT:=TToolButton.Create(application);
 TB.Parent:=T;
 TBT.Parent:=TB; ???
 ...

Где неправда?

---

← →
Glex ©   (2006-04-10 13:30) [1]

var
TB:TToolBar;
TBT:TToolButton;
T: TTabSheet;
...
begin
...
T := TTabSheet.Create(self);
TB:=TToolBar.Create(self);
TBT:=TToolButton.Create(self);
T.Parent:= ?
TB.Parent:=T;
TBT.Parent:=TB;

Попробуй так

---

← →
Ega23 ©   (2006-04-10 15:17) [2]

> Glex ©   (10.04.06 13:30) [1]


Почему Self?


> Gear   (04.04.06 21:23)

Не вижу TPageControl, к которому цепляется TabSheet

---

← →
Glex ©   (2006-04-10 17:35) [3]

Ega23

А Self - это шаманство) Но мне уже здесь пытались объяснить почему так лучше) Сам не знаю.

---

← →
Ega23 ©   (2006-04-10 18:10) [4]

> А Self - это шаманство) Но мне уже здесь пытались объяснить
> почему так лучше) Сам не знаю.


Self - это не шаманство. Self - это указатель на экземпляр класса, в рамках которого выполняется данный метод.
> var
> TB:TToolBar;
> TBT:TToolButton;
> T: TTabSheet;
> ...
> begin
> ...
> T := TTabSheet.Create(self);
> TB:=TToolBar.Create(self);
> TBT:=TToolButton.Create(self);
> T.Parent:= ?
> TB.Parent:=T;
> TBT.Parent:=TB;

В случае, если это procedure TForm1.CreateButtons
- это экземпляр класс TForm1.

А если это метод какого-нибудь моего Custom-класса
procedure TMyCustomClass.CreateButtons,
то это уже экземпляр класса TMyCustomClass.

---

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

Текущий архив: 2006.04.23;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c