ttoolbar: состояние кнопок и горячие клавиши [решено]

[t-ea]

1. Как добиться визуального отображения нажатия ttoolbar-кнопки при использовании клавиатуры?
2 .Как узнать какая из кнопок в настоящий момент нажата?

Пример:
На форме есть ttoolbar с двумя кнопками (мужчина, женщина) у которых установлено mao_radiobutton.
1. При щелчке мышкой, кнопка меняет свой вид, а при нажатии с клавиатуры — нет.
2. Не срабатывает проверка (as_checked in State) если кнопка имеет mao_radiobutton.

[debi12345]

Переслал вопросы в конфу.

[mse]

ttoolbar is mouse only, please use tmainmenuwidget instead.
Another possibility is to use a tdockpanel, activate dragdock.optionsdock od_splitvert,od_nofit,od_banded, place the necessary widgets in ttoolbar, at runtime they will be placed horizontally, can be resized and moved if wanted.
I'll have a look because of the as_checked problem in ttoolbar.

Posted after 1 hour 26 minutes 26 seconds:
Please try again with git master 29ea4fe0258f21c75af2b4493ee0adf954a657c7.
PS: It is possible to simplify the code

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

procedure tmainfo.GetStatus(const sender: TObject);
begin
 beFemaleStatus.Value:= tb.Buttons[0].checked;
 beMaleStatus.Value:=  tb.Buttons[1].checked;
end;

[katt]

Есть ли где в mseide или в mseuniverse пример использования выделенных строк чтобы подсмотреть, потому-что при таком подходе у меня ничего не получается.
boolean-поле пока не использую, так как в grid уже мало места для дополнительной колонки.?