SetActiveGadget()

Syntax

SetActiveGadget(#Gadget)

Aktiviert das Gadget (setzt den Fokus darauf), welches durch die angegebene Gadgetnummer definiert wird. Das Aktivieren eines Gadgets ermöglicht diesem, zum aktuellen Objekt - welches Nachrichten empfängt und Tastatur-Eingaben einliest - zu werden.

Parameters

#Gadget

Das zu aktivierende Gadget. Kann auf '-1' gesetzt werden, um den Tastatur-Fokus vom derzeit aktiven Fenster zu entfernen.

Return value

None.

Example

  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)   ; Aktiviere das StringGadget
          Case 3 : SetActiveGadget(1)   ; Aktiviere das ComboBoxGadget
        EndSelect
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

See Also

GetActiveGadget(), SetActiveWindow()

Supported OS

All