• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Delphi实现窗口一直在桌面工作区内显示（重写WM_WINDOWPOSCHANGING消息） ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

有的时候我们要实现一个悬浮窗口，并使该窗口一直显示在桌面的工作区内。即整个窗口要一直显示在屏幕上，不能超出屏幕的上下左右边缘。此功能的实现也不难，我们需要自己写代码来响应窗口的WM_WINDOWPOSCHANGING消息，话不多说，详细代码如下供参考：

新建一个工程，并把下面代码拷贝到工程中，运行……

 
 
 
 
 
Delphi/Pascal
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
;
 
interface
 
uses
,
;
 
type
)
private
;
public
}
;
 
var
;
 
implementation
 
}
 
;
begin
;
begin
;
;
begin
;
;
 
then
;
 
then
;
;
 
.

 http://bcoder.com/delphi/make-the-window-always-shows-in-desktop-workarea-in-delphi

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi中，如何读取资源文件？发布时间：2022-07-18
下一篇：
Delphixe7up1调用android振动功能发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap