Markieren des Inhalts im Stringgadget nach TAB-Sprung -best?

[r7mk4]

Hi,

Hier mal der Beispielcode aus der Hilfe:

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
    StringGadget(2, 8,  60, 306, 20, "Readonly StringGadget", #PB_String_ReadOnly)
    StringGadget(3, 8,  85, 306, 20, "lowercase...", #PB_String_LowerCase)
    StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
    StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
    StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

So, ich bin nun im Cursor im obersten Stringgadget und drücke TAB. Der Cursor springt eins runter. Wie mache ich das, daß der Text gleich markiert wird?
Damit beim Lostippen der alte Text gleich gelöscht wird.
Ich hab zwar die Methode gefunden:
http://www.purebasic.fr/german/viewtopi ... 089#178089
Damit würde ich es irgendwie sicher hinbekommen, aber sicher nicht elegant und schön.

Irgendwelche hab ich das Gefühl das geht ganz einfach. Nur wie?

[ts-soft]

Code: Alles auswählen

EnableExplicit

If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
  StringGadget(1, 8,  35, 306, 20, "1234567", #PB_String_Numeric)
  StringGadget(2, 8,  60, 306, 20, "Readonly StringGadget", #PB_String_ReadOnly)
  StringGadget(3, 8,  85, 306, 20, "lowercase...", #PB_String_LowerCase)
  StringGadget(4, 8, 110, 306, 20, "uppercase...", #PB_String_UpperCase)
  StringGadget(5, 8, 140, 306, 20, "Borderless StringGadget", #PB_String_BorderLess)
  StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
  SetActiveGadget(0)
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow : Break
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0, 1, 3, 4, 5, 6
            If EventType() = #PB_EventType_Focus
               SendMessage_(GadgetID(EventGadget()), #EM_SETSEL, Len(GetGadgetText(EventGadget())), 0)
            EndIf
        EndSelect
    EndSelect
  ForEver
EndIf

[r7mk4]

So oder so ähnlich hätte ich das wohl auch gemacht
Ein Danke ging raus.