DeleteItemMenu

Синтаксис

sub DeleteItemMenu(ByVal menu As HMENU, ByVal Npos As long,ByVal flag As Long=0)

Описание

Позволяет удалять ненужный пункт меню

Параметры

menu - хендл меню

Npos - номер меню

flag - только для Windows; может быть:

MF_BYCOMMAND - Указывает, что параметр uPosition дает идентификатор пункта меню. Флажок MF_BYCOMMAND является значением по умолчанию
MF_BYPOSITION - Указывает, что параметр uPosition дает отсчитываемую от нуля относительную позицию пункта меню.

Платформы

Windows , Linux

Пример

#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 меню")
MenuItem(1002,MenName,"2 меню")
#Ifdef __FB_WIN32__
ButtonGadget(1,10,10,150,30,"удалить пункт меню")
#Else
ButtonGadget(1,10,40,150,30,"удалить пункт меню")
#EndIf
Do
  event=WaitEvent
  If event=EventGadget then
     Select case EventNumber
        Case 1
           DeleteItemMenu(menu,1001)
     End Select
  EndIf
  If event=EventClose Then End
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free PDF documentation generator