实现点击窗口最小化或者点击窗口关闭，之后执行将窗口隐藏到托盘

疯狂雪狼

求一段简单的代码实现，点击窗口上的最小化或者关闭后，将窗口隐藏到托盘图标区域，双击托盘图标则还原显示窗口。最好能写个例程。

素顏じ亦傾城ジ

疯狂雪狼 发表于 2013-6-1 18:08
点击最小化，窗口隐藏到托盘区域（桌面的底部不能显示该程序，必需在托盘区域显示），双击托盘区域的图标 ...

1.rar (37.96 KB, 下载次数: 184)

2013-6-1 18:10 上传

点击文件名下载附件     这样, 看看是不是你要的

素顏じ亦傾城ジ

来吧, 亲 采纳我吧

暴走漫画

例子来了。

疯狂雪狼

素顏じ亦傾城ジ 发表于 2013-6-1 17:31
来吧, 亲 采纳我吧

这个代码有问题啊，1、窗口没法关闭；2、虽说有隐藏到托盘的图标，但是桌面下面的菜单栏还有这个窗口最小化后的显示，并没有隐藏到托盘区域啊。我截个图

疯狂雪狼

撸出血 发表于 2013-6-1 17:52
例子来了。

这个例子也有点问题，当点击最小化隐藏到托盘区域后，双击托盘图标，这个窗口只是在菜单栏那里显示了出来，还需要在点击一下在菜单栏处的这个窗口，之后才能在桌面显示出来。需要的是，双击托盘图标后，这个窗口直接在桌面显示出来。

素顏じ亦傾城ジ

疯狂雪狼 发表于 2013-6-1 18:01
这个例子也有点问题，当点击最小化隐藏到托盘区域后，双击托盘图标，这个窗口只是在菜单栏那里显示了出来 ...

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_位置被改变

.如果真 (_启动窗口.位置 ＝ 2)
    置托盘图标 (#图片1, “隐藏一下”)
    _启动窗口.可视 ＝ 假
.如果真结束


.子程序 __启动窗口_可否被关闭, 逻辑型

置托盘图标 (#图片1, “隐藏一下”)
_启动窗口.位置 ＝ 2
_启动窗口.可视 ＝ 假
返回 (假)

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.判断开始 (操作类型 ＝ #单击右键)
    信息框 (“隐藏一下”, 0, )
.判断 (操作类型 ＝ #双击)
    _启动窗口.可视 ＝ 真
    _启动窗口.位置 ＝ 0
.默认

.判断结束


因为你说关闭是到托盘的. 所以才这么写.  你希望如何关闭 ?

疯狂雪狼

素顏じ亦傾城ジ 发表于 2013-6-1 18:05
.版本 2

.程序集 窗口程序集1

点击最小化，窗口隐藏到托盘区域（桌面的底部不能显示该程序，必需在托盘区域显示），双击托盘区域的图标时该窗口在桌面显示出来。单击窗口处的关闭时就关闭该窗口。还麻烦写个例程。

疯狂雪狼

素顏じ亦傾城ジ 发表于 2013-6-1 18:11
这样, 看看是不是你要的

就是这样，谢谢了。

暴走漫画

刚好吧，在来一次。