xikjun 发表于 2013-5-27 17:15:43

多级托盘菜单怎么做？

多级托盘菜单这么做呀！试了半天不成功。求个示例。谢谢

veket_linux 发表于 2013-5-27 19:30:01

注意 TrayCreateItem 的第二个参数
请看帮助

user3000 发表于 2013-5-27 19:44:56

本帖最后由 user3000 于 2013-5-27 19:48 编辑

这是事件响应托盘菜单的简单例子,消息循环模式,请参考帮助文档.Opt('traymenumode', 1+2); 开启托盘自定义菜单,并取消点击菜单后的打勾状态
Opt('TrayOnEventMode', 1) ; 开启事件响应模式.

$m1 = TrayCreateMenu('菜单1')
TrayCreateItem('子菜单1', $m1)
TrayItemSetOnEvent(-1, '_first')
TrayCreateItem('', $m1)
$m2 = TrayCreateMenu('子菜单', $m1)
TrayCreateItem('子菜单2', $m2)
TrayItemSetOnEvent(-1, '_second')
TrayCreateItem('')
TrayCreateItem('退出')
TrayItemSetOnEvent(-1, '_exit')
While 1
Sleep(50)
WEnd

Func _first()
        MsgBox(0, '', '响应子菜单1')
EndFunc

Func _second()
        MsgBox(0, '', '响应子菜单2')
EndFunc

Func _exit()
        Exit
EndFunc

xikjun 发表于 2013-5-27 22:20:02

谢谢！！！

hzxymkb 发表于 2013-5-27 23:59:41

多看帮助文档！
页: [1]
查看完整版本: 多级托盘菜单怎么做？