Delphi使窗口最小化后显示在任务栏上

最新推荐文章于 2021-02-23 14:15:34 发布

weixin_30527423

最新推荐文章于 2021-02-23 14:15:34 发布

阅读量1.4k

点赞数

原文链接：http://www.cnblogs.com/tecsoon/archive/2009/03/14/1412098.html

版权

我在代码中写了如下代码：Frm_Main.WindowState:=wsMinimized，可在代码执行后却将窗体"最小化"在桌面上了（任务栏上也有）！另在设计中设置完WindowState的属性为wsMinimized后，在窗体初始化后就可"最小化"在任务栏上，而桌面上没有！

请各位指教，不胜感激！！！

对象不同，效果也不同
Application.Minimize;
Self.WindowState:=wsMinimized

那句话就是是对Self来说的，而不是Application.

Delphi中除主窗体外，其余窗体最小化后不会出现在任务栏上，而是象古老的Windows 3.X那样缩小为一条出现在桌面左下角。在这些窗体的OnCreate事件里面加上

SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_APPWINDOW);

就可以使窗口最小化后出现在任务栏上。

转载于:https://www.cnblogs.com/tecsoon/archive/2009/03/14/1412098.html