首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

Delphi悬浮窗任务栏,该怎么解决

2014-01-12 
Delphi悬浮窗任务栏 我主窗体用的是MDI,用Delphi写了一个悬浮窗,主窗体最小化到托盘是用的TrayNotifyIcon。

Delphi悬浮窗任务栏
 我主窗体用的是MDI,用Delphi写了一个悬浮窗,主窗体最小化到托盘是用的TrayNotifyIcon。有两个问题:
1.不开启悬浮窗,主窗体最小化时,如果子窗体不关闭,则任务栏上仍会显示标题,若我先循环关闭子窗体,
 for i:=0 to MDIChildCount-1 do       //循环读取存在的子窗体
       MDIChildren[i].close;
 self.visible := false;
这样最小化时任务栏上则会消失,我想问有没有办法不用关闭子窗体就可以让MDI主窗体在最小化时不在任务栏上显示。

2. 我另写了一个窗体用作悬浮窗,窗体设置成bsNone,fsStayOnTop.在MDI主窗体最小化时show悬浮窗,悬浮窗功能正常,但任务栏上仍会有标题存在,即使我把子窗体全部关闭了也一样,求解如何让任务栏上不显示标题。
[解决办法]
得到窗口样式然后去掉任务栏??

ExTaskTitle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
ExTaskTitle := ExTaskTitle - WS_EX_TOOLWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, ExTaskTitle);

未测试.

热点排行