SetActiveGadget()

Синтаксис

SetActiveGadget(#Gadget)

Описание

Активирует указанный Гаджет и устанавливает на него фокус клавиатуры. Активация Гаджета позволяет ему стать текущим объектом для приема сообщений и обработки нажатий клавиш.

Параметры

#Gadget

Номер, идентифицирующий активизируемый Гаджет. Параметр может быть установлен в '-1', чтобы удалить фокус клавиатуры из текущего активного Гаджета.

Возвращаемое значение

Ничего.

Пример

If OpenWindow(0, 0, 0, 270, 140, "Активация Гаджетов", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 10, 10, 250, 20, "Бла бла...")
    ComboBoxGadget(1, 10, 40, 250, 21)
    For a = 1 To 5 : AddGadgetItem(1, -1, "Элемент ComboBox " + Str(a)) : Next
    SetGadgetState(1, 2) ; Установить (начиная с 0) третий элемент как активный.
    ButtonGadget(2, 10, 90, 250, 20, "Активировать StringGadget")
    ButtonGadget(3, 10, 115, 250, 20, "Активировать ComboBox")
    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Gadget
            Select EventGadget()
                Case 2 : SetActiveGadget(0) ; Активировать StringGadget
                Case 3 : SetActiveGadget(1) ; Активировать ComboBox
            EndSelect
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

См. также

GetActiveGadget(), SetActiveWindow()

Поддерживаемые OS

Все