Описание функции

SetWindowFocus

Делает окно активным

SetWindowFocus(wID)

Параметры

Пример

; JHPJHP
; https://www.purebasic.fr/english/viewtopic.php?p=492909#p492909
Procedure SetWindowFocus(wID)
    If GetWindowState(wID) <> #PB_Window_Minimize And IsWindowVisible_(WindowID(wID))
        ForeThread = GetWindowThreadProcessId_(GetForegroundWindow_(), #Null)
        AppThread = GetCurrentThreadId_()

        If ForeThread <> AppThread
            AttachThreadInput_(ForeThread, AppThread, #True)
            BringWindowToTop_(WindowID(wID))
            ShowWindow_(WindowID(wID), #SW_SHOW)
            AttachThreadInput_(ForeThread, AppThread, #False)
        Else
            BringWindowToTop_(WindowID(wID))
            ShowWindow_(WindowID(wID), #SW_SHOW)
        EndIf
    EndIf
EndProcedure