Event()

Синтаксис

Event = Event()

Описание

Возвращает текущее событие. Это то же значение, которое возвращают WindowEvent() и WaitWindowEvent(), оно в основном полезно при использовании обратного вызова, чтобы определить, какое событие вызвало его.

Параметры

Ничего.

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

Возвращает текущее событие.

Пример

Procedure EventHandler()
    Select Event()
        Case #PB_Event_CloseWindow
            End

        Case #PB_Event_Gadget
            Debug "Гаджет #" + EventGadget() + " Нажат"
    EndSelect
EndProcedure

OpenWindow(0, 100, 100, 300, 100, "", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_MaximizeGadget)
ButtonGadget(0, 10, 10, 100, 30, "Нажми")

; Используйте один обратный вызов для всех событий
BindGadgetEvent(0, @EventHandler())
BindEvent(#PB_Event_CloseWindow, @EventHandler())

; Мы не обрабатываем события здесь, поэтому мы можем запустить цикл навсегда и забыть о нем.
Repeat
    WaitWindowEvent()
ForEver

См. также

WindowEvent(), WaitWindowEvent()

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

Все