文件名称:Delphi实现窗口最顶层显示.rar
文件大小:5KB
文件格式:RAR
更新时间:2022-07-30 12:25:42
Delphi源码-界面编程
Delphi实现窗口最顶层显示,这种功能相信大家见的比较多了,也就是窗口置顶、显示在最前面,不被其它的窗口遮挡,现在新版的暴风影音播放器有这种功能,在播放视频的时候,为了不被其它的窗体所遮挡,可设置播放窗口显示在最顶层,这个功能实用吧,在Delphi中,本源码将演示其中一种实现的方法。代码细节: SetWindowPos(Handle,HWND_TOPMOST, //hWndInsertAfter参数设置为HWND_TOPMOST Left,Top,Width,Height,//窗体的位置和尺寸不变 SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); //SWP_NOACTIVATE:不激活窗体 //SWP_NOMOVE:保持窗体当前位置,忽略X和Y参数 //SWP_NOSIZE:保持窗体当前尺寸,忽略cx 和cy参数
【文件预览】:
codesc.net
----制作始终位于最上层的窗体()
--------Project1.res(876B)
--------Unit1.bkm(125B)
--------Unit1.dfm(353B)
--------Unit1.ddp(51B)
--------Unit1.pas(893B)
--------Project1.dpr(188B)
--------Project1.stat(163B)
--------Unit1.dcu(4KB)