динамическое создание кнопок на 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 - это шаманство) Но мне уже здесь пытались объяснить почему так лучше) Сам не знаю.

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

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