Работа с ToolButton

← →
s (2004-02-27 18:25) [0]

Подскажите, пожалуйста, как можно в панели ToolBar со свойством Flat := True необходимые кнопки ToolButton программно привести в активное состояние, так как если бы по ним проходил указатель мыши.
И можно ли кнопку ToolButton по первому нажатию утопить, а по второму поднять. Наверное, свойство Down работает некорректно или у меня руки кривые :)
В OnClick кнопки добавил ToolButton.Down := not ToolButton.Down
При первом нажатии топиться, а при втором остается утопленной.

← →
TButton (2004-02-27 18:29) [1]

свойство даун работает :) при groupindex>0

← →
s (2004-02-27 18:36) [2]

TButton:
Кнопки TToolButton в панели TToolBar не имеют groupindex. Там есть свойство grouped(boolean)

← →
s (2004-02-27 18:42) [3]

Понял!
Надо TToolButton.Style установить в tbsCheck и в OnClick использовать ToolButton.Grouped := not ToolButton.Grouped

Только как быть с первой частью вопроса?
...как можно в панели ToolBar со свойством Flat := True необходимые кнопки ToolButton программно привести в активное
состояние, так как если бы по ним проходил указатель мыши.

Помогите!

← →
TButton (2004-02-27 18:44) [4]

что значит
>привести в активное состояние, так как если бы по ним проходил указатель мыши.
???

← →
s (2004-02-27 18:58) [5]

To TButton:
Если панель TToolBar имеет свойство Flat := true, то все кнопки сливаются с поверхностью. При прохождении курсора мыши над такими кнопками они как бы слегка приподнимаются. Так как сделать это с любой кнопкой не проводя над ней мышкой?

← →
TButton (2004-02-27 19:05) [6]

никак... не узнаешь пока не по копаешься в исходниках кнопки. имхо, по честному - никак.

← →
s (2004-02-27 19:08) [7]

Может есть способ?

← →
TButton (2004-02-27 19:10) [8]

"o mama mia mama mia let me go..." (c)Queen
может быть

← →
s (2004-02-27 19:18) [9]

Спасибо хоть за беседу :)

← →
TButton (2004-02-27 19:20) [10]

не за что :)

Работа с ToolButton Найти похожие ветки