CreatePopMenu

CreatePopMenu

menu = CreatePopMenu()

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

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,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=WM_RBUTTONDOWN Then
  DisplayPopupMenu(hMessages, GlobalMouseX,GlobalMouseY)
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Full-featured EPub generator