GetActiveGadget()

Syntax

Ergebnis = GetActiveGadget()

Gibt die Gadget-Nummer des Gadgets zurück, welches gerade den Tastatur-Fokus hat.

Parameter

Diese Funktion hat keine Parameter.

Rückgabewert

Gibt die #Gadget Nummer des Gadget mit dem Fokus zurück. Wenn kein Gadget den Fokus hat, wird -1 zurückgegeben.

Beispiel

  If OpenWindow(0, 0, 0, 270, 70, "GetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget  (0, 10, 10, 250, 20, "Escape drücken...")
    StringGadget  (1, 10, 40, 250, 20, "Escape drücken...")
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)
    SetActiveGadget(0)
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Menu And EventMenu() = 1
        MessageRequester("Test", "Escape gedrückt im Gadget " + Str(GetActiveGadget()))
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Unterstützte OS

Alle