GetActiveGadget()

Syntaxe

Resultat = GetActiveGadget()

Renvoie le numéro du #Gadget qui a actuellement le 'focus' clavier. Si aucun gadget a le focus, -1 est renvoyé.

Exemple:

  If OpenWindow(0, 0, 0, 270, 70, "GetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    StringGadget  (0, 10, 10, 250, 20, "Appuyez sur la touche [Echap]...")
    StringGadget  (1, 10, 40, 250, 20, "Appuyez sur la touche [Echap]...")
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)
    SetActiveGadget(0)
    Repeat
      Evenement = WaitWindowEvent()
      If Evenement = #PB_Event_Menu And EventMenu() = 1
        MessageRequester("Test", "La touche [Echap] a été appuyée dans le gadget " + Str(GetActiveGadget()))
      EndIf
    Until Evenement = #PB_Event_CloseWindow
  EndIf

OS Supportés

Tous