DeleteItemMenu

DeleteItemMenu

DeleteItemMenu(Hmenu, item, [flag=0] )

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

Hmenu - Хендл меню

item - номер меню.

flag:

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

Пример:

#Include "window9.bi"

Dim As HMENU hMessages,MenName,MenName1,MenName2,event

OpenWindow("",10,10,400,400)
hMessages=Create_Menu()
MenName=MenuTitle(hMessages,"Файл")
MenName1=MenuTitle(hMessages,"Помощь")
MenuItem(1001,MenName,"1 меню")
MenuItem(1002,MenName,"2 меню")
ButtonGadget(1,10,10,150,30,"удалить пункт меню")

Do
 event=WaitEvent
 If event=EventGadget then
  Select case EventNumber
   Case 1
         DeleteItemMenu(hMessages,1001)
  End Select
 EndIf
 If event=EventClose Then End
Loop

http://mneniya.ucoz.ru/

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