Зафиксировать нажатие TSpeedButton

[Иван Шихалев]

Что-то то ли лыжи не едут... Ткните носом, плиз, какие свойства нужно установить, чтобы кнопка фиксировалась? Точнее - три кнопки зависимых. Или как в в кнопках стандартного TToolBar сделать так, чтобы помимо иконки выводился заголовок...

[Brainenjii]

Нужно указывать GroupIndex и причём в run-time ^_^

Код: Выделить всё

  SpeedButton1.GroupIndex := 1;
  SpeedButton2.GroupIndex := 1;
  SpeedButton3.GroupIndex := 1;
  SpeedButton4.GroupIndex := 1;
  SpeedButton1.Down := TRUE;


У меня заработало

P.S. Про run-time соврал - уже починили ^_^

[Иван Шихалев]

Спасибо, я почему-то все без GroupIndex'а пытался заставить Down работать для начала...

Добавлено спустя 36 секунд:
А про ToolBar с надписями никто не знает?

[alexs]

А про ToolBar с надписями никто не знает?

Посмотри свойство List

[Иван Шихалев]

Посмотри свойство List

А что оно дает? Правда, я там и ShowCaptions нашел. Вчера как-то вообще тупил - думал, что это должно у кнопки задаваться, а не у панели...

[dunin]

Так что-ли надо?


Тоже долго искал как это включить, потом пошел таким путем:

[Иван Шихалев]

Примерно. Но SpeedButton на ToolBar кидать не хочется. Впрочем, разобрался в целом.

[dunin]

Примерно. Но SpeedButton на ToolBar кидать не хочется. Впрочем, разобрался в целом.

Ну дык делитесь.
Мне вот тоже не хочется, а оно там, зараза, лежит...

[Иван Шихалев]

TToolBar.ShowCaptions
А где не надо, оставляем пустой Caption.

[dunin]

TToolBar.ShowCaptions
А где не надо, оставляем пустой Caption.

Ага. И list := true; Все гут. Спасибо.

Добавлено спустя 4 минуты 18 секунд:
Не, не получается. Заголовок все равно появляется. Видать из Action берется. Откатываю назад на SpeedButton

[Иван Шихалев]

Из Action, наверняка. Мне проще - у меня в ActionList в этом месте нет нужды.

[alexs]

Заголовок все равно появляется. Видать из Action берется.

Я в своё время в том числе и из-за этого свою панель написал. А то приходилось в OnCreate формы заголовки у кнопок очищать.