Ttoolbar

[Shnur]

Подскажитьте как програмно в TToolBar создать кнопку с текстом и чтоб при ее нажатии выполнялась процедура...

 

[Barmutik]

var
AButton: TToolButton;
begin
AButton := TToolButton.Create(ToolBar1);
AButton.Parent := ToolBar1;
AButton.Caption := '11';
AButton.OnClick := ... обработчик нажатия на кнопку;

 

[Shnur]

И еще вопросик как сделать так чтобы при нажатии на кнопку она была нажата до тех пор пока не нажмешь другую?

 

[Barmutik]

Используйте установку свойства Grouped := True and Style = tbsCheck у кнопок..

Вообще-то такие вопросы прекрасно освещены в хелпе...

 

[Shnur]

Да и еще совсем забыл, как эту кнопку вообще удалить с TToolBar?
И спасибо за помощь )

 

[DimaBr]

ToolBar.Buttons[2].Free;

 

[Shnur]

Да но если мне нужно конкретну, номер которой я не знаю?

 

[Barmutik]

Ну найдите её по имени к примеру...

 

[Shnur]

Лудше бы код подсказали...

 

[DimaBr]

> Лудше бы код подсказали...
ToolBar.Buttons[2].Free;

ToolBar.FindComponent('MyBytton).Free;

MyButton.Tag := 9999;
for i := ToolBar.ButtonCount -1 downto do
if ToolBar.Buttons.Tag = 9999 then ToolBar.Buttons.Free;