CreatePopMenu

Синтаксис

Function CreatePopMenu() As HMENU

Описание

Используется для создания контекстного меню

Параметры

нет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As HMENU hMessages
Dim As Long event
OpenWindow("",10,10,400,400)
hMessages=CreatePopMenu()
MenuItem(1001,hMessages,"1 меню")
MenuItem(1002,hMessages,"2 меню")
Do
  event=WaitEvent
  If event=EventMenu then
     Select case EventNumber
        Case 1001
           MessBox("","1 меню")
        Case 1002
           MessBox("","2 меню")
     End Select
  ElseIf event=eventrbdown Then
     DisplayPopupMenu(hMessages, GlobalMouseX,GlobalMouseY)
  EndIf
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free Kindle producer