delphi浮动窗口
发布日期:2021-08-22 21:45:44
浏览次数:8
分类:技术文章
本文共 768 字,大约阅读时间需要 2 分钟。
像Photoshop一样的面板窗体,面板窗体与主窗体都处于激活状态。
用Spy & Capture查看一下就不难发现,这些面板窗体的Parent Window都是Photoshop的主窗体(以Photoshop CS为例,主窗体的Handle是001906D8,所有面板的Parent Window指向的就是001906D8),而一般我们创建的窗体的Parent是为None的。
下面的代码就为实现这种浮动窗口的示范:
varForm1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin//把Form2的Parent改为Form1Form2 := TForm2.CreateParented(Form1.Handle);Form2.Show;//使得Form2处于激活状态SendMessage(Form2.Handle, WM_NCACTIVATE, Ord(True), 0);end;procedure TForm1.Button2Click(Sender: TObject);beginForm2.Close;end;procedure TForm1.FormDestroy(Sender: TObject);begin//记得加上这一句if Form2.Showing then Form2.Close;end;end.
上面的代码就可以显示一个与Form1同处激活状态的Form2,再对Form2的BorderStyle与BorderIcons属性作一些必要的选择,就可以实现更加完美的效果!
转载于:https://blog.51cto.com/alun51cto/2399909
转载地址:https://blog.csdn.net/weixin_33755847/article/details/93081399 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!
发表评论
最新留言
表示我来过!
[***.240.166.169]2024年03月07日 16时06分24秒
关于作者
喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!
推荐文章
ocdma相干非相干_《Acconeer 60GHz脉冲相干雷达芯片:A111》
2019-04-21
修改表格字体颜色_Excel技巧:Excel如何修改字体颜色
2019-04-21
prism项目搭建 wpf_WPF MVVM使用prism4.1搭建
2019-04-21
python中func自定义函数_Python函数之自定义函数&作用域&闭包
2019-04-21
wget连接指定端口_端口通不通 telnet wget ssh
2019-04-21
easyexcel 工具类_问了个在阿里的同学,他们常用的15款开发者工具!
2019-04-21
mysql统计结果大于0时返回true_mysql表查询练习
2019-04-21
c语言对结构体排序中间变量,求助:c语言怎么实现结构体的排序? 总是弄不对啊...
2019-04-21
c语言宏定义只能在最前面吗,C语言宏定义注意事项
2019-04-21
android悬浮窗服务卡死,Android 悬浮窗兼容问题谈
2019-04-21
表格相关的html语言,HTML标记语言——表格标记
2019-04-21
web聊天界面html,PC端Web聊天界面+代码分享(HTML+CSS)
2019-04-21
cmake qt 添加路径 项目_CMake配置Qt工程
2019-04-21
使用python开发的软件协议_WEB开发——Python WSGI协议详解
2019-04-21
冰点下载器手机版apk_冰点文库下载器
2019-04-21
python信号采集代码_13行代码实现:Python实时视频采集(附源码)
2019-04-21
h5引入json_纯js直接引入json文件
2019-04-21