SetActiveGadget()

Syntax

SetActiveGadget(#Gadget)

Aktiviert (setzt den Fokus darauf) das Gadget mit der angegebenen '#Gadget' Nummer.

Dies wird hauptsächlich zusammen mit ComboBoxGadget() und StringGadget() verwendet. Das Aktivieren eines Gadgets ermöglicht diesem, zum aktuellen Objekt - welches Nachrichten empfängt und Tastatur-Eingaben einliest - zu werden.

Beispiel:

  If OpenWindow(0, 0, 0, 270, 140, "SetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget  (0, 10, 10, 250, 20, "bla bla...")
    ComboBoxGadget(1, 10, 40, 250, 21)
    For a = 1 To 5 : AddGadgetItem(1, -1, "ComboBox item " + Str(a)) : Next
    SetGadgetState(1, 2)                ; wir machen den dritten Eintrag (beginnend bei 0) zum aktiven
    ButtonGadget  (2, 10, 90, 250, 20, "Activate StringGadget")
    ButtonGadget  (3, 10, 115, 250, 20, "Activate ComboBox")
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        Select EventGadget()
          Case 2 : SetActiveGadget(0)   ; Activate StringGadget
          Case 3 : SetActiveGadget(1)   ; Activate ComboBoxGadget
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Unterstützte OS

Alle