FreeMenu

Синтаксис

Function FreeMenu(ByVal menu As HMENU) As Integer

Описание

Удаляет меню, но не освобождает ресурсы с ним связанные. То есть в любое время можно использовать его номера пунктов для каких-либо целей

Параметры

menu - хендл меню

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HMENU menu,MenName,MenName1,MenName2
Dim As Long event
OpenWindow("",10,10,400,400)
menu=Create_Menu()
MenName=MenuTitle(menu,"Файл")
MenName1=MenuTitle(menu,"Помощь")
MenuItem(1001,MenName,"1 меню")
ButtonGadget(1,10,10,110,30,"удалить меню")
Do
  event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           FreeMenu(menu)
     End Select
  EndIf
  If event=EventClose Then End
Loop

Created with the Personal Edition of HelpNDoc: Easily create PDF Help documents