IsMenu()

Синтаксис

Result = IsMenu(#Menu)

Описание

Проверяет, соответствует ли данный Номер #Menu реально существующему и правильно инициализированному Меню.

Параметры

#Menu

Номер, идентифицирующий Меню, которое требуется проверить на существование.

Возвращаемое значение

Возвращает не нулевое значение, если данный Номер указывает на реально существующий экземпляр Меню, в противном случае возвращает 0.

Комментарии

Эта функция не создаёт ошибок и может использоваться с любым значением. Это - корректный способ убедиться, что Меню готово к использованию.

Пример (Фран)

If OpenWindow(0, 200, 200, 300, 100, "Пример FreeMenu")
    ButtonGadget(0, 50, 10, 190, 30, "Удалить Меню")

    If CreateMenu(0, WindowID(0))
        MenuTitle("Проект")
        MenuItem(1, "Открыть")
    EndIf

    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 0
                    If IsMenu(0) ; Проверка, существует ли данное Меню ?
                        FreeMenu(0) ; Если да, то мы его удаляем.
                    EndIf
            EndSelect
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

CreateMenu(), CreatePopupMenu(), CreateImageMenu(), CreatePopupImageMenu()

Поддерживаемые OS

Все