AddKeyboardShortcut - Problem mit StringGadget

[STARGÅTE]

Tachchen,

wieso kann man im StringGadget nicht mehr nach Links und Rechts wenn man diese beiden Tasten als Shortcut definiert ?
Ich meine wenn man "kein Event" haben möchte kann man ja abfragen ob das gadget gerade aktiv ist, aber wieso wird die normale Navigation im StringGadget dann "verboten" ?

Code: Alles auswählen

OpenWindow(0, 0, 0, 800, 600, "Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(0))
  StringGadget(1, 10, 10, 200, 20, "Beispieltext")
  AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)
  AddKeyboardShortcut(0, #PB_Shortcut_Left, 2)

Repeat
 Event = WaitWindowEvent()
 Select Event
  Case #PB_Event_CloseWindow
   End
  Case #PB_Event_Gadget
   Select EventGadget()
    Case 0
   EndSelect
  Case #PB_Event_Menu
   Select EventMenu()
    Case 0
   EndSelect
 EndSelect
ForEver

Hat jemand eine Idee wie ich die Navigation im Stringgadget behalten kann ?, trotzdem aber ein MenüEvent bei Links Rechts bekomme ?

(OHNE API)

[ts-soft]

Code: Alles auswählen

GetActiveGadget()
RemoveKeyboardShortcut()

anders wirds wohl ohne API nicht gehen, das Thema hatten wir schon mal

[STARGÅTE]

ok, nicht schön, geht aber ...

danke für den Hinweis...

Code: Alles auswählen

OpenWindow(0, 0, 0, 800, 600, "Fenster", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
 CreateGadgetList(WindowID(0))
  StringGadget(1, 10, 10, 200, 20, "Beispieltext")

Repeat
 Event = WaitWindowEvent()
 If GetActiveGadget() = 1
  RemoveKeyboardShortcut(0, #PB_Shortcut_Right)
  RemoveKeyboardShortcut(0, #PB_Shortcut_Left)
 Else
  AddKeyboardShortcut(0, #PB_Shortcut_Right, 1)
  AddKeyboardShortcut(0, #PB_Shortcut_Left, 2) 
 EndIf
 Select Event
  Case #PB_Event_CloseWindow
   End
  Case #PB_Event_Gadget
   Select EventGadget()
    Case 0
   EndSelect
  Case #PB_Event_Menu
   Select EventMenu()
    Case 1,2
     Debug "Key"
   EndSelect
 EndSelect
ForEver