Режим "Поверх всех окон" совместно с ComboBox в GUI
Добрый день!
есть следующий код:
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("WinWaitDelay", 0)
Opt("GUIOnEventMode", 1)
;ShellHook notification codes:
Global Const $HSHELL_WINDOWCREATED = 1
Global Const $HSHELL_WINDOWACTIVATED = 4
Global $bHook = 1
$hForm = GUICreate('Demo', 330, 185, -1, -1, BitOR($WS_CAPTION, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_POPUP, $DS_SETFOREGROUND), $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Main_Events')
$Checkbox1 = GUICtrlCreateCheckbox("Поверх всех окон", 10, 20, 200, 21)
$sCombo = GUICtrlCreateCombo("", 15, 50, 200, 21)
GUICtrlSetData($sCombo, "элемент0|элемент1|элемент2|элемент3|элемент4|")
$nExit_Button = GUICtrlCreateButton('Exit', 330 - 100 - 10, 130 + 10 + 10, 100, 23)
GUICtrlSetOnEvent(-1, '_Main_Events')
GUISetState(@SW_SHOW, $hForm)
GUIRegisterMsg(RegisterWindowMessage("SHELLHOOK"), "HShellWndProc")
ShellHookWindow($hForm, $bHook)
While 1
Sleep(10)
WEnd
Func _Main_Events()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE, $nExit_Button
ShellHookWindow($hForm, 0)
Exit
EndSwitch
EndFunc
Func HShellWndProc($hWnd, $Msg, $wParam, $lParam)
Switch $wParam
Case $HSHELL_WINDOWCREATED, $HSHELL_WINDOWACTIVATED
While Not WinActive($hForm)
WinActivate($hForm)
WEnd
EndSwitch
EndFunc
;register/unregister ShellHook
Func ShellHookWindow($hWnd, $bFlag)
Local $sFunc = 'DeregisterShellHookWindow'
If $bFlag Then $sFunc = 'RegisterShellHookWindow'
Local $aRet = DllCall('user32.dll', 'int', $sFunc, 'hwnd', $hWnd)
Return $aRet[0]
EndFunc
;register window message
Func RegisterWindowMessage($sText)
Local $aRet = DllCall('user32.dll', 'int', 'RegisterWindowMessage', 'str', $sText)
Return $aRet[0]
EndFunc
Вопрос заключается в следующем:
Как сделать, чтобы по выбору Checkbox1 окно было поверх всех окон, и наоборот (теряло свойство "поверх всех окон", когда снята галка Checkbox1 ) ?
Если использовать WinSetOnTop - не работает ComboBox |
