Shortcut temporär deaktivieren?

[pws32]

Hallo, ich habe hier ein kleines Program mit einem Keybordshortcut (mit Space soll der Button gedrückt werde, geht auch) wenn ich nun etwas ins Stringgadget schreibe und Space nutze geht es leider auch, weis jemand wie man den Shortcuts temporär deaktivieren kann wenn während ich das Stringgadget nutze

Viele Grüsse

Code: Alles auswählen

Enumeration
  #StartStopButton
  #StringTest  
EndEnumeration


OpenWindow(1,0,0,200,200,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(#StringTest, 10, 50, 106, 20, "StringGadget")
ButtonGadget(#StartStopButton,10,10,106,25,"Press",0)
SetGadgetColor(#StartStopButton, #PB_Gadget_FrontColor, $00AA00)

AddKeyboardShortcut(1,#PB_Shortcut_Space,#StartStopButton) ;<---Wenn Space gedrückt wurde dann Event

Repeat
event = WaitWindowEvent()
If event = #PB_Event_Gadget
  Select EventGadget()
    Case #StartStopButton
      MessageRequester("Test","Button wurde gedrückt",0)
  EndSelect
EndIf
If event = #PB_Event_Menu
  Select EventMenu()
    Case #StartStopButton
      MessageRequester("Test","Button wurde gedrückt",0)
  EndSelect
EndIf
Until event = #PB_Event_CloseWindow

[RSBasic]

Code: Alles auswählen

  Select EventGadget()
    Case #StringTest
      Select EventType()
        Case #PB_EventType_Focus
          RemoveKeyboardShortcut(#StringTest, #PB_Shortcut_Space)
        Case #PB_EventType_LostFocus
          AddKeyboardShortcut(#StringTest, #PB_Shortcut_Space, #StartStopButton)
      EndSelect

[pws32]

besten Dank!!!! klappt sehr gut