GetActiveGadget()

Синтаксис

Result = GetActiveGadget()

Описание

Возвращает Номер (#Gadget) Гаджета, который в данный момент имеет фокус клавиатуры.

Параметры

Ничего.

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

Возвращает Номер Гаджета (#Gadget) с фокусом клавиатуры. Если ни у одного Гаджета нет фокуса клавиатуры, будет возвращено значение '-1'.

Пример

If OpenWindow(0, 0, 0, 270, 70, "GetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    StringGadget(0, 10, 10, 250, 20, "Нажмите escape...")
    StringGadget(1, 10, 40, 250, 20, "Нажмите escape...")
    AddKeyboardShortcut(0, #PB_Shortcut_Escape, 1)
    SetActiveGadget(0)
    Repeat
        Event = WaitWindowEvent()
        If Event = #PB_Event_Menu And EventMenu() = 1
            MessageRequester("Test", "Escape нажата в Гаджете " + Str(GetActiveGadget()))
        EndIf
    Until Event = #PB_Event_CloseWindow
EndIf

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

Все