Verarbeitung von #PB_EventType_LostFocus und .._Change

[derschutzhund]

Hallo zusammen,

ich möchte gerne den Inhalt eines Stringgadget automatisch abspeichern, wenn der Inhalt geändert wurde.
Nun habe ich gefunden, dass es #PB_EventType_Change und #PB_EventType_LostFocus gibt, bekomme es aber nicht hin,
diese Events für ein bestimmtes Stringgadget auszuwerten.
Das sollte doch eigentlich relativ einfach möglich sein oder?

LG

Wolfgang

[RSBasic]

Code: Alles auswählen

EnableExplicit

Define EventID
Define StringGadgetContent$

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(1, 10, 10, 100, 20, "", 0)
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget
      Select EventGadget()
        Case 1
          Select EventType()
            Case #PB_EventType_Change
              StringGadgetContent$ = GetGadgetText(1)
              Debug StringGadgetContent$
         EndSelect
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

[derschutzhund]

Perfekt! Danke!