Страница: 1 |
Вопрос: Позиция PopupMenu | Добавлено: 22.01.04 22:22 |
Автор вопроса: ![]() |
Помогите, пожалуйста! Мне нужно поставить PopupMenu под кнопку во время нажатия (соотвтественно в координаты X и Y, например как в ToolBar кнопка в стиле DropDown). Ничего не получается, ведь координаты идут для все экрана... |
Ответы | Всего ответов: 3 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() Вопросов: 13 Ответов: 16 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 22.01.04 23:26 |
Попробуй найти название своего меню которое должно появиться и посмотреть у него TOP и LEFT |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 117 Ответов: 1538 |
Профиль | Цитата | #2 | Добавлено: 23.01.04 00:36 |
Попробуй так: получаешь через GetWindowRect экранные координаты кнопки, передавая в ф-цию hWnd кнопки и переменную типа RECT Dim Rec As RECT Dim Pt As POINTAPI GetWindowRect Cjmmand1.hwnd, Rec Получив координаты кнопки, перезанеси их в переменную POINTAPI ( А затем при помощи TrackPopupMenu hMenu, TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0& поставль своё меню куда надо.
|
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 23.01.04 00:47 |
Что за ерунда? Вот так все нормально работает: Private Sub Command1_Click() Me.PopupMenu mnu1, 0, Command1.Left, Command1.Top + Command1.Height End Sub |
Страница: 1 |
|