Delphi实现窗口最顶层显示.rar

时间:2022-07-30 12:25:42
【文件属性】:

文件名称: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)

网友评论