Popup menu не вызывается (код внутри)

06.01.2009, 12:38. **Показов** 2200. **Ответов** 11

Студворк — интернет-сервис помощи студентам

Добрый день!
В форме не вызывается сабж. Код:

Visual Basic
1
2
3
4
5
Private Sub MSHFlexgrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then 
Form1.PopupMenu Form1.menu1
End if
End Sub

В чем может быть причина???
Заранее благодарен.

@aaf · 06.01.2009, 12:58

Visual Basic
1
2
3
4
5
Private Sub tree_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu MDIForm1.mnuPopup
End If
End Sub

У меня так работает (правда на дерево а не на грид), посмотри, может надо заменить MSHFlexgrid1_MouseUp
на
MSHFlexgrid1_MouseDown ???

06.01.2009, 13:01

Не-а

Не работает

@aaf · 06.01.2009, 13:07

А у меня работает с флексгридом :

Visual Basic
1
2
3
4
5
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
    PopupMenu s
End If
End Sub

s - это имя скрытого меню, которое должно быть попап

06.01.2009, 13:15

Пробовал и так. Все равно не работает

ни на ап ни на даун. Может потому что форма vbModal над еще 3-мя?

@aaf · 06.01.2009, 13:24

у тебя есть MDI - форма? Если да то попробуй вызвать меню с MDI формы:
PopupMenu MDIForm1.любое)_твое_меню

06.01.2009, 13:33

Не хочет. Эх придется тулбар лепить.

Спасибо за помощь!

@aaf · 06.01.2009, 13:35

че то дюже странное произошло у тебя...

@Korolana · 06.01.2009, 16:11

Checked your code(the first message), everything OK
Are you sure, that you created menu1 right? (visible, enabled, right levels and so on). Try to popup it from any other place to check.

06.01.2009, 16:18

Данная ошибка возникает периодически, если вызывать меню из формы, показаной модально... Почему - понятия не имею

@Korolana · 06.01.2009, 18:21

Check it in the 'empty' project, just with two forms (parent and modal-child), may be problem just in mouse itself? (button)

@Tueur · 18.01.2009, 18:08

Возможно дело в том, что в винде одновременно может показываться только один попап. Допустим ты в попапе выбрал какой-то пункт, и в обработчике события показываешь еще одну форму, в которой тоже потом хочешь показать попап. Это не прокатит до тех пор, пока событие обработки выбора пункта меню в родительской форме не отработает до конца. Иначе говоря, басик (или винда) считает, что один попап уже есть, и другой показывать не хочет.

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

Palladin
	06.01.2009, 13:15
	Пробовал и так. Все равно не работает ни на ап ни на даун. Может потому что форма vbModal над еще 3-мя?

@aaf 0 / 0 / 0 Регистрация: 26.12.2007 Сообщений: 435
	06.01.2009, 13:24
	у тебя есть MDI - форма? Если да то попробуй вызвать меню с MDI формы: PopupMenu MDIForm1.любое)_твое_меню 0

Palladin
	06.01.2009, 13:33
	Не хочет. Эх придется тулбар лепить. Спасибо за помощь!

@aaf 0 / 0 / 0 Регистрация: 26.12.2007 Сообщений: 435
	06.01.2009, 13:35
	че то дюже странное произошло у тебя... 0

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	06.01.2009, 16:11
	Checked your code(the first message), everything OK Are you sure, that you created menu1 right? (visible, enabled, right levels and so on). Try to popup it from any other place to check. 0

Palladin
	06.01.2009, 16:18
	Данная ошибка возникает периодически, если вызывать меню из формы, показаной модально... Почему - понятия не имею

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	06.01.2009, 18:21
	Check it in the 'empty' project, just with two forms (parent and modal-child), may be problem just in mouse itself? (button) 0

@Tueur 0 / 0 / 0 Регистрация: 04.11.2007 Сообщений: 5
	18.01.2009, 18:08
	Возможно дело в том, что в винде одновременно может показываться только один попап. Допустим ты в попапе выбрал какой-то пункт, и в обработчике события показываешь еще одну форму, в которой тоже потом хочешь показать попап. Это не прокатит до тех пор, пока событие обработки выбора пункта меню в родительской форме не отработает до конца. Иначе говоря, басик (или винда) считает, что один попап уже есть, и другой показывать не хочет. 0