Как отобразить контекстное меню над контролом (как меню для кнопки Пуск в Винде)?

[fedorov2012]

Есть PopupMenu стоит задача вывести его над контролом за которым оно закреплено (как меню для кнопки Пуск в Windows). Делал так брал кнопки классов TJvSpeedButton, TRxSpeedButton, TcxButton (dev express) размещал их на форме и через свойство DropDownMenu делал связку со своим PopupMenu - при нажатии на кнопку меню выводиться, НО выводиться оно всегда вниз, за одним исключением, когда моя форма близко к концу экрана.
Скажите, пожалуйста, как заставить выводиться меню на контролом за которым оно закреплено?

[Аватар]

Не делать через DropDownMenu, а в OnClick кнопки вызывать PopupMenu.Popup с нужными координатами (которые еще вычислить нужно)

[fedorov2012]

Сообщение от Аватар

Не делать через DropDownMenu, а в OnClick кнопки вызывать PopupMenu.Popup с нужными координатами (которые еще вычислить нужно)

Да в OnClick'e можно вопрос как эти координаты-то вычислить, посмотрел исходники вычисления координат у приведенных кнопок - без 100 грамм не разобрать + ко всему в зависимости от PopupMenu (например TBXPopupMenu) оно еще само чего-то до вычисляет. Но с координатами это полбеды, допустим мы расчитали X, Y точки вывода меню, но возникает новая сложность как заставить меню выводиться снизу вверх (т.е меню начинать должно расти от нашей кнопки), а не сверху вниз.

[Аватар]

как заставить меню выводиться снизу вверх (т.е меню начинать должно расти от нашей кнопки), а не сверху вниз.

А с этого места подробнее, что имеется ввиду?

[EUGY]

Видимо имеется ввиду как у TrackPopupMenu TPM_VERNEGANIMATION