Update...
Is better to add and remove shortcut key
Code: Select all
;-TOP
Enumeration formMenu
#Menu_Return
EndEnumeration
OpenWindow(0, 270, 100, 200, 145, "Highlighted button")
ButtonGadget(0, 40, 20, 120, 25, "Ok", #PB_Button_Default)
ButtonGadget(1, 40, 60, 120, 25, "Cancel")
StringGadget(2, 40, 100, 120, 25, "Text")
SetActiveGadget(0)
; AddKeyboardShortcut(0, #PB_Shortcut_Return, #Menu_Return)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Menu
Select EventMenu()
Case #Menu_Return
;Debug GetGadgetText(2)
PostEvent(#PB_Event_Gadget, 0, 0, #PB_EventType_LeftClick)
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 0
Debug "Button Ok - " + GetGadgetText(2)
Case 1
Debug "Button Cancel"
Case 2
If EventType() = #PB_EventType_Focus
AddKeyboardShortcut(0, #PB_Shortcut_Return, #Menu_Return)
ElseIf EventType() = #PB_EventType_LostFocus
RemoveKeyboardShortcut(0, #PB_Shortcut_Return)
EndIf
EndSelect
EndSelect
ForEver