Ttoolbar

Тема в разделе "Delphi - Компоненты", создана пользователем Shnur, 23 окт 2006.

Статус темы:
Закрыта.
  1. Shnur

    Shnur Гость

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

    Barmutik Гость

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

    Shnur Гость

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

    Barmutik Гость

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

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

    Shnur Гость

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

    DimaBr Гость

    ToolBar.Buttons[2].Free;
     
  7. Shnur

    Shnur Гость

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

    Barmutik Гость

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

    Shnur Гость

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

    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;
     
Статус темы:
Закрыта.

Поделиться этой страницей