| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/9 10:32:32 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | if form1.WindowState = wsMinimized then //判断窗口是不是被最小化如果是，就隐藏进入拖盘 begin BsForm.MinimizeToTray; end 这样只能判断窗口给最小化了。由于DELPHI比较特殊，多窗口一般只会在任务栏里以一个任务来显示，所以无法通过这个方法来判断程序是不是给最小化了。 希望各位朋友多想办法，多多指教。 谢谢 ---------------------------------------------- 正在努力学习DELPHI呢 |
|||||
| 作者： |
|
2004/3/9 11:53:08 | ||||
| 1楼： | procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin if form1.WindowState =wsMinimized then form1.clos; //发生事件 end; procedure TForm1.FormClick(Sender: TObject); begin WindowState:=wsMinimized end; ---------------------------------------------- --------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name |
|||||
| 作者： |
|
2004/3/9 11:55:17 | ||||
| 2楼： | 也可以用ApplicationEvents1到得到最小化事件，然后再缩托盘区 ---------------------------------------------- --------------------- 世间万物空如幻 来去此间只留影 --------------------- 幻影之芯(rEgSpy/CGG) CGG WEB http://Www.CGG.Name |
|||||
| 信息 |
| 登陆以后才能回复 |
