#include <GUIConstants.au3>
$begin = ""
$Form1 = GUICreate("уникальный заголовок", 260, 115, 193, 125)
$Button1 = GUICtrlCreateButton("Search", 88, 72, 75, 25, 0)
$Label1 = GUICtrlCreateLabel("Нажмите кнопку и ждите 10 сек", 40, 16, 172, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetState ($Button1, $GUI_DISABLE)
GUICtrlSetData ( $Label1, "Кнопка нажата и не активна..." )
$begin = TimerInit()
EndSwitch
If Not $begin = "" Then
If TimerDiff ($begin) >= 10000 Then ; ждём 10 сек и активируем кнопку
GUICtrlSetState ($Button1, $GUI_ENABLE)
GUICtrlSetData ( $Label1, "Кнопка вернулась в исходное состояние..." )
$begin = ""; обнуляем переменную
EndIf
EndIf
WEnd |
