将子窗口最小化后在任务栏显示

我们再创建子对话框的时候有时候需要将子对话框最小化,但最小化后一般是缩小到了桌面的左下角,而且如果你没有设置TitleBar的话就回事一块黑色的区域;在网上找了找,看到有两种方法可以将子对话框缩小后在任务栏显示。

方法一、更改子窗口的风格,添加WS_EX_APPWINDOW风格,在OnInitDialog设置代码如下:

ModifyStyleEx(0, WS_EX_APPWINDOW, 0);//设置缩小时在任务栏显示风格


 

方法二、修改自窗口的属性。在对话框的属性中有一个Application Window属性,只要我们把这个属性设置为True。然后我们再最小化子窗口时也就在任务栏显示了

 

温馨提示:对于以上两种方法,在VS2008中都可以使用,但在VC中方法二就不行了,因为窗口没有Application属性。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
好的,按照您的要求,我为您提供一份 Delphi 使用 Windows SDK 开发的示例代码。这个示例代码包含两个窗口,一个主窗口和一个窗口。主窗口不会在任务栏显示图标,窗口始终显示在桌面上且不能被最小化,而且始终置底。 首先,我们需要在 Delphi 中创建一个新的项目。在项目中添加两个窗口,一个主窗口和一个窗口。然后,我们需要在主窗口的 OnCreate 事件中设置窗口样式,使其不在任务栏显示。代码如下: ``` procedure TForm1.FormCreate(Sender: TObject); begin // 设置窗口样式,不在任务栏显示 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; ``` 接下来,我们需要在主窗口的 OnShow 事件中创建窗口,并设置窗口的样式,使其始终显示在桌面上且不能被最小化。代码如下: ``` procedure TForm1.FormShow(Sender: TObject); var hwndChild: HWND; begin // 创建窗口 hwndChild := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_TRANSPARENT or WS_EX_LAYERED, PChar('Static'), nil, WS_POPUP or WS_VISIBLE, 0, 0, Screen.Width, Screen.Height, Handle, 0, HInstance, nil); // 设置窗口样式,始终显示在桌面上且不能被最小化 SetWindowLong(hwndChild, GWL_EXSTYLE, GetWindowLong(hwndChild, GWL_EXSTYLE) or WS_EX_TOOLWINDOW or WS_EX_TOPMOST); end; ``` 最后,我们需要在窗口的 OnCreate 事件中设置窗口的样式,使其始终置底。代码如下: ``` procedure TForm2.FormCreate(Sender: TObject); begin // 设置窗口样式,始终置底 SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); end; ``` 这样,我们就实现了一个包含两个窗口的 Delphi 桌面程序,主窗口不会在任务栏显示图标,窗口始终显示在桌面上且不能被最小化,而且始终置底。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值