[原创分享]托盘例子(使用木瓜的MyFll.fll)
*!* 作 者：十豆三
*!* 日 期：2010-07-01
*!* 说 明：木瓜的MyFll.fll请自行搜索并下载或到CSDN下载中心下载(http://download.csdn.net/source/2505656)
示例1：
*-- 表单A Init 事件代码：
Set Library To MyFll
*-- 表单A Resize 事件代码：
If This.WindowState=1 && 最小化
This.Hide && 隐藏表单
SystrayAdd(1,("路径\图标.ico"),This.Caption,"MyForm.Show","MyForm.Show") && 向托盘添加图标
SysTrayShowMessage(1,"可以 双击、右单击 或按 Alt+W 键 还原。","我最小化到托盘了",64) && 显示托盘消息
HotKeyAdd(1,1,Asc('W'),"MyForm.Show") && 向系统注册一个热键 Alt+W
Endif
*-- 表单A Show 方法代码：
Lparameters nStyle
This.Visible=.T.
This.WindowState=0 && 0(普通窗口) 或 2(最大化窗口)
SysTrayDel(1) && 删除系统托盘中的图标
HotKeyDel(1) && 删除添加的热键
*-- 运行表单时
Public MyForm
Do Form 表单A.Scx Name MyForm
----------------------------------------------
示例2：
*-- 表单A Resize 事件代码：
If This.WindowState=1 && 最小化
This.Hide && 隐藏表单
SysTrayShowMessage(1,"可以 双击、右单击 或按 Alt+W 键 还原。","我最小化到托盘了",64) && 显示托盘消息
HotKeyAdd(1,1,Asc('W'),"MyForm.Show") && 向系统注册一个热键 Alt+W
Endif
*-- 表单A Show 方法代码：
Lparameters nStyle
This.Visible=.T.
This.WindowState=0 && 0(普通窗口) 或 2(最大化窗口)
HotKeyDel(1) && 删除添加的热键
*-- 表单A Init 事件代码：
Set Library To MyFll
SystrayAdd(1,("路径\图标.ico"),This.Caption,"MyForm.Show","MyForm.Show") && 向托盘添加图标
*-- 表单A Unload 事件代码：
SysTrayDel(1) && 删除系统托盘中的图标
HotKeyDel(1) && 删除添加的热键
*-- 运行表单时
Public MyForm
Do Form 表单A.Scx Name MyForm
[解决办法]
不错，学习
[解决办法]
[解决办法]
[解决办法]
[解决办法]
学习！
[解决办法]
vfp自带的类 systray.vcx，\Samples\Solution\Toledo\systray_sample.scx的示例很好。systray.vcx可以实现托盘菜单，鼠标操作等，消息弹出等，就是用起来复杂一些。
[解决办法]
还是木瓜大侠的的myfll比较方便，呵！
[解决办法]
好例子，继续学习！
[解决办法]
好好学习学习
[解决办法]
好好学习! 谢你楼主共享! 楼是好人哪!
[解决办法]
用myf11实现了楼主的效果
问题
1.如何加上弹出式菜单？
2.只有最小化时有图标，如果有菜单则不能在未最小化时选择了
[解决办法]
不错 学习中……
[解决办法]
多谢了,学习
[解决办法]
学习！
