Кнопка, похожая на

← →
DVM (2002-11-20 17:07) [0]

Не подскажите, как можно сделать чтобы обычная кнопка вела себя так как кнопка "ПУСК":
При щелчке вдавливалась и открывала меню, а при щелчке повторном на ней или где либо еще возвращалась в нормальное положение.
Что то я никак не могу добиться этого манипулируя свойствами у
BitBtn, SpeedButton.

← →
Snap © (2002-11-20 17:09) [1]

попробуй
button1.type:=пуск;
button1.paint;

← →
DVM (2002-11-20 17:40) [2]

Для Snap:
Если не знаешь что сказать не лезь!

← →
Андрей Прокофьев © (2002-11-20 17:49) [3]

SpeedButton.GroupIndex := 1; ( > 0)
SpeedButton.AllowAllUp := true;
Тогда при щелчке будет "залипать"

← →
DVM (2002-11-20 18:12) [4]

Пробовал - плохо получается.
Во первых, если при нажатии должно открываться PopupMenu, то кнопка по первому щелчку открывает PopupMenu, и только по второму залипает. Вызов PopupMenu я поставил в OnMousedown, а не в OnClick, так как надо чтобы меню разворачивалось уже тогда когда мышь нажали, но еще не отпустили (как у "Пуск").
И как ее вернуть в нормальное положение программно, не щелкая по ней второй раз, когда например скрывается PopupMenu.

Может есть какое то решение со стандартными компонентами, чтобы свою кнопку не писать.

TToolBar - там кнопки те, что надо

Кнопка, похожая на Найти похожие ветки