| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

динамическое создание кнопок на ToolBar [D7, WinXP]

Gear ©   (2006-04-04 21:23:00) 

Здравствуйте! Как динамически создать кнопки на созданном динамически 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; ???
 ...

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

---

Ega23   (2006-04-10 18:10:00) [1]

> А 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.

---

Glex   (2006-04-10 17:35:00) [2]

Ega23

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

---

Ega23   (2006-04-10 15:17:00) [3]

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


Почему Self?


> Gear   (04.04.06 21:23)

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

---

Glex   (2006-04-10 13:30:00) [4]

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;

Попробуй так

---

Наверх