Tempo
AutoIT Гуру
- Сообщения
- 616
- Репутация
- 205
Не работает отключение событий, пример
Код:
;~ AutoIt Version: 3.3.14.5
#include <GUIConstantsEx.au3>
_Test()
While Sleep(10)
WEnd
Func _Test()
Opt("GUIOnEventMode", 1)
GUICreate("GUISetOnEvent", 400, 200)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Event_Close")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_Event_PrimaryUp")
GUICtrlCreateButton('Disable Event "$GUI_EVENT_PRIMARYUP"', 50, 50, 300, 100)
GUICtrlSetOnEvent(-1, "_DisableEvent_PrimaryUp")
GUISetState()
EndFunc ;==>_Test
Func _DisableEvent_PrimaryUp()
Local Static $i = 1
;~ Local $iRet = GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "") ;Error in expression
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "") ;Not work
ConsoleWrite('!>Disable Event "$GUI_EVENT_PRIMARYUP" #' & $i & @LF)
$i += 1
EndFunc ;==>_DisableEvent_PrimaryUp
Func _Event_PrimaryUp()
Local Static $i = 1
ConsoleWrite('>Event "$GUI_EVENT_PRIMARYUP" #' & $i & @LF)
$i += 1
EndFunc ;==>_Event_PrimaryUp
Func _Event_Close()
Exit
EndFunc ;==>_Event_Close