• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Ttoolbar

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

Shnur

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

Barmutik

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

Shnur

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

Barmutik

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

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

Shnur

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

Shnur

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

Barmutik

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

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;
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!