[poli-smen]

Сообщение от YVitaliy

В примере лежит и панель, неужели при наведении на нее меню не закрывается?

Закрывается. Но вот интересный момент: менюшки появляются даже если форма перекрыта другими окнами (приложениями) и даже если форма вообще свёрнута (при наведении на предполагаемое место кнопок)

[ildvild]

Как то делал кнопку с выпадающим меню на подобие той как в qip2012.
Исходник с демкой прикрепил, можешь посмотреть.

[YVitaliy]

Сообщение от poli-smen

Закрывается. Но вот интересный момент: менюшки появляются даже если форма перекрыта другими окнами (приложениями) и даже если форма вообще свёрнута (при наведении на предполагаемое место кнопок)

Ну, это ControlAtPos так работает Вообще-то лучше этот кусок кода удалить:

Код:

if  form1.ControlAtPos(pt,true,true).ClassType = TButton then
     if form1.ControlAtPos(pt,true,true).Tag=54 then
     Button1MouseMove(form1.ControlAtPos(pt,true,true),[],pt.X, pt.Y);

из таймера, он там "нипричем", а именно он так действует.