Event()

Syntax

Ereignis = Event()

Gibt das aktuelle Ereignis zurück. Es ist der gleiche Wert, wie er von WindowEvent() und WaitWindowEvent() zurückgegeben wird. Dies ist hauptsächlich nützlich bei der Verwendung eines Callbacks, um festzustellen, welches Ereignis diesen ausgelöst hat.

Parameter

Diese Funktion hat keine Parameter.

Rückgabewert

Gibt das aktuelle Ereignis zurück.

Beispiel

  Procedure EventHandler()
    Select Event()
      Case #PB_Event_CloseWindow
        End
        
      Case #PB_Event_Gadget
        Debug "Gadget #" + EventGadget() + " pushed"
    EndSelect
  EndProcedure
  
  OpenWindow(0, 100, 100, 300, 100, "", #PB_Window_SizeGadget | #PB_Window_SystemMenu | #PB_Window_MaximizeGadget)
  ButtonGadget(0, 10, 10, 100, 30, "Push me")
  
  ; Verwendung eines einzigen Callbacks für alle Ereignisse
  BindGadgetEvent(0, @EventHandler())
  BindEvent(#PB_Event_CloseWindow, @EventHandler())
  
  ; Wir verarbeiten hier keine Ereignisse, daher können wir die Schleife dauerhaft laufen lassen und sie "vergessen"
  Repeat
    WaitWindowEvent()
  ForEver

Siehe auch

WindowEvent(), WaitWindowEvent()

Unterstützte OS

Alle