GetActiveGadget()
Syntaxe
Resultat = GetActiveGadget()Description
Renvoie le numéro d'un gadget qui a actuellement le 'focus' clavier.
Arguments
Aucun.
Valeur de retour
Renvoie le numéro #Gadget du gadget qui a le focus.
Si aucun gadget n'a le focus, -1 est renvoyé.
Exemple
If OpenWindow(0, 0, 0, 270, 70, "GetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 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