| Вопрос: Позиция PopupMenu | Добавлено: 22.01.04 22:22 |
Автор вопроса:  AV | Web-сайт: www.av.folder-pro.net
|
| Помогите, пожалуйста! Мне нужно поставить PopupMenu под кнопку во время нажатия (соотвтественно в координаты X и Y, например как в ToolBar кнопка в стиле DropDown). Ничего не получается, ведь координаты идут для все экрана... |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  tigrix Вопросов: 13 Ответов: 16 |
Web-сайт: Профиль | | #1 | Добавлено: 22.01.04 23:26 |
|
Попробуй найти название своего меню которое должно появиться и посмотреть у него TOP и LEFT |
||
|
Номер ответа: 2 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 23.01.04 00:36 |
|
Попробуй так: получаешь через GetWindowRect экранные координаты кнопки, передавая в ф-цию hWnd кнопки и переменную типа RECT Dim Rec As RECTDim Pt As POINTAPI GetWindowRect Cjmmand1.hwnd, Rec Получив координаты кнопки, перезанеси их в переменную POINTAPI ( А затем при помощи TrackPopupMenu hMenu, TPM_LEFTALIGN, Pt.x, Pt.y, 0, Me.hwnd, ByVal 0&поставль своё меню куда надо.
|
||
|
Номер ответа: 3 Автор ответа:  SharpЛидер форума 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 |