如何实现delphi窗体靠前非置顶

Delphi小叮当 2012-10-05 10:41:20

如何实现delphi窗体靠前非置顶
我想让delphi窗体靠前假设有很多窗体我想让我的程序到最前端但不是置顶如何实现？

...全文

133 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

hsfzxjy 2012-10-05

打赏
举报

回复

FORM.BRINGTOFRONT;

广州佬 2012-10-05

打赏
举报

回复

SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,1);//置前
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,1);//恢复

Delphi窗口置顶实例、窗体透明，禁止使用最大化按钮和最小化按钮的编程实例

Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握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参数

Delphi设置置顶窗口，把程序窗口显示在其它窗口的最上层(顶层)，以前多见于一些影视播放器中，在播放视频时，为了不被其它窗口遮挡，都会把播放窗口置于其它窗口的最上面显示，以提升用户体验。需要更多窗口置顶的例子，请参阅下面这个同样是Delphi源码实现的例子：　　Delphi窗口置顶（始终显示在最上层）实例运行环境：Windows/Delphi7

语言基础/算法/系统设计

16,749

社区成员

33,245

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章