Добрый день.

Имеем:
- D7;
- форма с TImage, поверх которого разбросаны несколько десятков TToolBar


- на каждой одна единственная TToolButton


Жило это все довольно долго, по мере жизни на TImage добавлялись новые TToolBar'ы. Настал момент "борьбы" за свободное место. Т.к. у некоторых TToolButton.DropDownMenu есть всего один TMenuItem, то захотелось сделать финт - для таких TToolButton оставлять создание и присвоение DropDownMenu (т.к. оно используется несмотря на количество TMenuItem'ов), а вот Style := tbsButton;

В результате где несколько пунктов меню - все осталось по-прежнему, а где один - кнопка выпадающего меню рисоваться перестала. Занятого места стало меньше, свободного больше. Но, как обычно, появился побочный эффект - при нажатии на такую кнопку выпадает меню с одним пунктом, а должен отрабатывать OnClick. Если же установить AutoPopup := False, то меню не появляется (это хорошо), но при этом нажатие кнопки не отрисовывается (это плохо), хотя событие OnClick и происходит.

Прошу совета как поступить:
- оставить как есть (не прорисовывается нажатие и ладно);
- уйти от TToolBar + TToolButton, заменить на TButton, например, и потом приклеивать к ней самодельный TPopupMenu;
- может есть что-то, чего я не знаю, что позволит все таки осуществить задуманное;