VFP软件最小化到托盘图标

2023-08-21 17:28:55 浏览数 (2)

刚好有人需求，做出来了，就分享给大家。

环境:VFPsp27423 myfll

表单的resize 事件

代码语言：javascript复制

If This.WindowState=1  &&最小化时隐藏
  *托盘图标添加
  This.Visible=.F.
  SystrayAdd(1,"00.ico","智能监视","showmainform()","showmainform()")
Endif

00.ico 为最小化到托盘的图标，

智能监视为鼠标移到图标上的提示信息。

showmainform函数

代码语言：javascript复制

FUNCTION showmainform
   oddeserver.visible=.t.
ENDFUNC

main.prg 主文件入口

代码语言：javascript复制

DO FORM 设备监视 NAME oddeserver

这样就可以实现最小化到托盘了。

this 表单函数软件事件

0 人点赞