[решено] Вопрос по TrayItemSetOnEvent: как выйти из скрипта в данной ситуации?

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Вопрос по TrayItemSetOnEvent: как выйти из скрипта в данной ситуации?

Добрый день! Для иллюстрации проблемы я сделал маленький скрипт:

Проблема вот в чем: когда щелкаешь на опцию трея "StartLoop", программа перестает реагировать на все остальные команды юзера через меню трея (потому что StartLoop зацикливает там все). А вот HotKeySet работает прекрасно вне зависимости от того, была ли нажата кнопка "StartLoop". Вопрос: как заставить прогу реагировать на команды через меню трея после вызова функции "StartLoop"?

Цитата:

Цитата evg64

программа перестает реагировать на все остальные команды юзера через меню трея »

Потому что обработка событии продолжается только после завершения вызванной событием функции - в этом случае лучше всего обрабатывать события в главном цикле:

Код:

$iLoop = False



Opt("TrayMenuMode", 1)

Opt("TrayOnEventMode", 1)

HotKeySet("{esc}", "ExitFunc")



$CurrentTime = TrayCreateItem("StartLoop")

TrayItemSetOnEvent(-1, "StartLoop")

$Exit = TrayCreateItem("Exit")

TrayItemSetOnEvent(-1, "ExitFunc")



While 1

    Sleep(100)



    If $iLoop Then Loop_Proc()

WEnd



Func StartLoop()

    ;m("StartLoop() starts")



    $iLoop = Not $iLoop



    $sText = "StartLoop"

    If $iLoop Then $sText = "StopLoop"



    TrayItemSetText($CurrentTime, $sText)

EndFunc



Func Loop_Proc()

    While Not $iLoop

        Sleep(100)

    WEnd

EndFunc



Func ExitFunc()

    ;m("ExitFunc() starts")

    Exit

EndFunc