系统托盘菜单无效，以及最小化到系统托盘的问题。

runningwater

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)
Opt("TrayMenuMode", 1)

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Administrator\桌面\Timer\formMain.kxf
$formOption = GUICreate("自定义时间", 494, 128, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "formOptionClose")
TraySetClick("9")
$mi3 = TrayCreateItem("3 分钟提醒")
TrayItemSetOnEvent(-1, "mi3Click")
$mi5 = TrayCreateItem("5 分钟提醒")
TrayItemSetOnEvent(-1, "mi5Click")
$mi10 = TrayCreateItem("10 分钟提醒")
TrayItemSetOnEvent(-1, "mi10Click")
$mi15 = TrayCreateItem("15 分钟提醒")
TrayItemSetOnEvent(-1, "mi15Click")
$mi20 = TrayCreateItem("20 分钟提醒")
TrayItemSetOnEvent(-1, "mi20Click")
$mi30 = TrayCreateItem("30 分钟提醒")
TrayItemSetOnEvent(-1, "mi30Click")
$miSprt1 = TrayCreateItem("")
$miCustom = TrayCreateItem("自定义时间")
TrayItemSetOnEvent(-1, "miCustomClick")
$miSprt2 = TrayCreateItem("")
$miExit = TrayCreateItem("退出")
TrayItemSetOnEvent(-1, "miExitClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd

Func formOptionClose()
        ;GUISetState(@SW_HIDE, $formOption)
EndFunc
Func mi10Click()

EndFunc
Func mi15Click()

EndFunc
Func mi20Click()

EndFunc
Func mi30Click()

EndFunc
Func mi3Click()

EndFunc
Func mi5Click()

EndFunc
Func miCustomClick()

EndFunc
Func miExitClick()
        Exit
EndFunc

想要实现点击关闭按钮最小化到系统托盘，点击系统托盘菜单“miExit”时，退出程序。
可是 miExitClick() 时间根本不执行，哪里写错了呢？
请大家帮忙，谢谢。

[ 本帖最后由 runningwater 于 2008-7-24 10:14 编辑 ]

frozen

只需加上“Opt("TrayOnEventMode",1)”就可以了。

runningwater

Opt("TrayOnEventMode",1)
加上这个就行了。
谢谢二位。

pccp

解决一个细节问题，很好。