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);
未测试.