Ttoolbar

  • Автор темы Shnur
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Shnur

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

Barmutik

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

Shnur

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

Barmutik

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

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

Shnur

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

Shnur

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

DimaBr

#10
> Лудше бы код подсказали...
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;
 
Статус
Закрыто для дальнейших ответов.