Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


DVM ©   (2002-11-20 17:07:00) 

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


Romkin   (2002-11-20 18:31:00) [1]

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


DVM   (2002-11-20 18:12:00) [2]

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

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


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

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


DVM   (2002-11-20 17:40:00) [4]

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


Snap   (2002-11-20 17:09:00) [5]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо