PureBasic

DisplayPopupMenu()

Синтаксис

DisplayPopupMenu(#Menu , WindowID [, x , y])

Описание


Выводит на экран всплывающее Меню, в текущей позиции мыши или в указанном местоположении на экране.

Параметры

#Menu Номер, идентифицирующий Меню, которое требуется вывести на экран. Это Меню должно быть создано с помощью функций CreatePopupMenu() или CreatePopupImageMenu().
WindowID Идентификатор окна, с которым можно связать всплывающее Меню. Корректный идентификатор 'WindowID' можно получить с помощью функции WindowID(). Данное окно будет автоматически активироваться при отображении всплывающего Меню.
x , y (дополн.) Местоположение, в котором Меню должно быть выведено на экран в экранных координатах. Это координаты в пикселях относительно верхнего левого угла основного монитора.

Если этот параметр не указан, Меню отображается в текущей позиции мыши.

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

Ничего.

Комментарии

Всплывающее Меню будет снова скрыто, когда пользователь выберет пункт Меню или щелкнет где-нибудь за пределами области всплывающего Меню.

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

  If OpenWindow(0, 200, 200, 320, 120, "Пример всплывающего Меню")
    If CreatePopupMenu(0)        ; Начинается создание всплывающего Меню...
      MenuTitle("Проект")        ; Для создания такого Меню вы можете использовать все команды,
        MenuItem(1, "Открыть")    ; точно так же, как с обычным Меню...
        MenuItem(2, "Сохранить")
        MenuItem(3, "Сохранить как")
        MenuItem(4, "Выход")
        MenuBar()
        OpenSubMenu("Недавние файлы")
          MenuItem(5, "PureBasic.exe")
          MenuItem(6, "Test.txt")
        CloseSubMenu()

    EndIf
    Repeat
      Event = WaitWindowEvent()
      Select Event                        ; проверяет, какой тип события произошёл в окне
        Case #PB_Event_RightClick         ; нажата правая кнопка мыши =>
          DisplayPopupMenu(0,WindowID(0)) ; Покажем всплывающее Меню
        
        Case #PB_Event_Menu      ; кликнут элемент всплывающего Меню
          Select EventMenu()     ; получим кликнутый элемент Меню...
            Case 1 : Debug "Menu : Открыть"
            Case 2 : Debug "Menu : Сохранить "
            Case 3 : Debug "Menu : Сохранить как"
            Case 4 : End
            Case 5 : Debug "Menu : PureBasic.exe"
            Case 6 : Debug "Menu : Text.txt"
          EndSelect

      EndSelect
    Until Event = #PB_Event_CloseWindow
  EndIf

См. также

CreatePopupMenu(), CreatePopupImageMenu()

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

Все

<- DisableMenuItem() - Оглавление Menu - FreeMenu()->