delphi窗体显示最上层

dong_yanyu 2010-05-18 01:22:07
在运行中一个窗体显示在所有窗体最上层用鼠标拖动时不受边界显示可以一定移动到任意位置
急求。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
...全文
736 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
dong_yanyu 2010-05-19
  • 打赏
  • 举报
 回复
就是可以移动出主窗体
oliverorj 2010-05-18
  • 打赏
  • 举报
 回复
不明白“用鼠标拖动时不受边界显示可以一定移动到任意位置”是什么意思，不妨试试：
在的onDeActive事件中加入如下代码：
if(not Self.Visable) then Self.focus;
dong_yanyu 2010-05-18
  • 打赏
  • 举报
 回复
我弄错了各位大哥那个不是窗体是frame
frame怎么解决这个问题那
lght 2010-05-18
  • 打赏
  • 举报
 回复
parentwindow := 0
dong_yanyu 2010-05-18
  • 打赏
  • 举报
 回复
就是这个桌面怎么设置可以给具体代码吗
lght 2010-05-18
  • 打赏
  • 举报
 回复
[Quote=引用楼主 dong_yanyu 的回复:]
用鼠标拖动时不受边界显示可以一定移动到任意位置
[/Quote]

难道不能移动到边界外？
设置parentwindow为桌面
hongss 2010-05-18
  • 打赏
  • 举报
 回复 
SetWindowPos( Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW);
kampan 2010-05-18
  • 打赏
  • 举报
 回复
属性FormStyle置为fsStayOnTop不成？
Delphi置顶窗口，显示在上层(顶层)的窗口
Delphi设置置顶窗口，把程序窗口显示在其它窗口的最上层(顶层)，以前多见于一些影视播放器中，在播放视频时，为了不被其它窗口遮挡，都会把播放窗口置于其它窗口的最上面显示，以提升用户体验。需要更多窗口置顶的例子，请参阅下面这个同样是Delphi源码实现的例子： 　　Delphi窗口置顶（始终显示在最上层）实例 运行环境：Windows/Delphi7
Delphi 7 新概念百例
《Delphi 7 新概念百例》是一本通过讲解Delphi实例，来说明使用Delphi编程时通常采用的编程思路以及具体方法的计算机书籍。通过对每个实例从编程思路和代码实现的详细分析和讲解，力求带领读者快速地提高自己的程序设计水平，并达到举一反三的目的。很多实例的重要部分都做了特别注意和技巧等提示，目的是强调一些技巧的使用或使读者尽量避免一些常见的错误，以使更高效地利用Delphi这个强大的程序开发工具。　　该书精选了100多个经典的实例从易到难、由浅入深、由简单到综合地进行讲解，内容涉及面也很广泛，基本上涵盖了用Delphi进行应用程序设计的方方面面，凝聚了作者多年的Delphi编程经验，相信对启发读者的思想并提高读者的编程水平台有很大帮助。　　该书主要面向中高级读者，但对那些熟悉Object Pascal语法并有一定编程经验的初级读者也很有帮助。本书也可以作为初涉Delphi的实例教材使用。　　本文件是《Delphi 7 新概念百例》的配书源代码，包含编译好的可执行文件。内容如下：├─综合应用篇│ ├─87 用TreeView来显示数据库信息│ ├─86 显示彩色数据表格│ ├─85 文件切割器│ ├─84 加密解密器│ ├─83 TButton增加OnMouseLeave事件│ ├─82 将IE收藏夹导出为HTML文件│ ├─81 NT Win2000中发送Winpop消息│ ├─80 制作无闪烁的动画│ ├─79 定制自己的幽灵程序│ ├─78 简单的文件查看器│ ├─77 简单的文件夹浏览器│ └─76 实现自己的控制面板├─练习提高篇│ ├─99 获取TRichEdit控件中光标所在行号│ ├─98 获取内存信息│ ├─97 获取CPU 信息│ ├─96 获取Windows的版本│ ├─95 临时文件的操作│ ├─94 获取Windows和System目录│ ├─93 将窗体大小限定在一定范围内│ ├─92 闪烁窗口│ ├─91 在窗体客户区用鼠标拖曳窗体│ ├─90 使TMemo组件带边界│ ├─89 给ListBox控件增加水平滚动条│ ├─88 运行时拖动控件│ ├─104 防止程序或系统关闭│ ├─103 设置屏幕分辨率│ ├─102 获取系统和显卡的BIOS信息│ ├─101 使应用程序不出现在任务栏上│ └─100 隐藏或显示桌面上的图标└─基础实例篇 ├─8第八节 数据库技术 │ ├─75 通过注册表在程序中增减和修改数据源 │ ├─74 获取BDE的配置信息 │ ├─73 动态建立和使用别名 │ │ ├─在程序中动态地建立和使用别名(四) │ │ ├─在程序中动态地建立和使用别名(二) │ │ ├─在程序中动态地建立和使用别名(三) │ │ └─在程序中动态地建立和使用别名(一) │ ├─72 自动检测、建立数据库别名和数据表 │ ├─71 用Delphi进行数据库之间转换 │ ├─70 图像数据的存取 │ ├─69 压缩、反删除dBase或FoxPro数据表 │ ├─68 处理数据库日期型字段的显示与输入 │ │ └─数据库 │ └─67 在数据库中存取Word文档 ├─7第七节 网络编程 │ ├─66 动态更改DNS │ ├─65 网络资源树形浏览 │ ├─64 实现网络驱动器的映射和断开 │ ├─63 在网络邻居上得到某台机器的磁盘空间 │ ├─62 在网络邻居中获取指定工作组内的所有计算机及其共享资源信息 │ ├─61 在WinNT-2000网络邻居中获取所有的工作组 │ ├─60 计算机名与IP地址的互相获取 │ ├─59 实现Ping操作 │ ├─58 网页浏览器 │ └─57 获取本机机器名、IP信息以及网卡的MAC地址 ├─6第六节 多媒体技术 │ ├─56 实现图像之间的平滑过渡 │ ├─55 制作能播放Midi、Wav和Avi文件的播放器 │ ├─54 检测声卡是否安装 │ ├─53 获取Audio-CD的序列号 │ ├─52_关闭CD-ROM │ └─51 检测_设置CD-ROM是否自动运行 ├─5第五节 图像技术 │ ├─50 创建Jpeg图像的缩略图 │ ├─49 实现图像的翻转 │ ├─48 多种渐变色的实现 │ ├─47 TColor与RGB值的互相转换 │ ├─46 将文本转换成图像 │ ├─45 提高对位图象素的访问速度 │ ├─44 将彩色位图转换为灰度图 │ ├─43 将图像从jpg,ico,bmp,wmf格式转换为emf格式 │ ├─42 将图像从jpg,ico,emf,wmf格式转换为bmp格式 │ └─41 将图像从bmp格式转换为Jpg格式 ├─4第四节 VCL分析 │ ├─40 消除在TEdit控件中按下回车键时的声音 │ ├─39 在StringGrid中设置只读栏 │ ├─38 加速TTreeView控件的填充和清空 │ ├─37 加速TListBox控件的填充和清空 │ ├─36 在TStringGrid控件中删除整行 │ ├─35 动态创建主菜单和菜单项 │ ├─34 使程序能在循环中响应界面操作 │ ├─33 在TListbox、TCombobox中实现自动搜索 │ ├─32 用剪贴板复制和粘贴图像 │ └─31 实现.dfm文件和.txt文件的互相转换 ├─3第三节 Shell研究 │ ├─30 为程序创建快捷方式 │ ├─29 获取Windows的若干特殊文件夹路径（二） │ ├─28 获取Windows的若干特殊文件夹路径（一） │ ├─27 抽取程序关联图标 │ ├─26 磁盘格式化的实现 │ ├─25 将文件加入“开始”菜单的“文档”中 │ ├─24 文件的拖放 │ ├─23 整个目录的复制、移动、删除 │ ├─22 将指定文件类型设置为与自己的应用程序相关联 │ └─21 文件的自动打开和超链接的实现 ├─2第二节 系统探秘 │ ├─20 操作INI文件 │ ├─19 获取驱动器类型信息 │ ├─18 在自己的程序中关闭其它的程序 │ ├─17 使程序开机自动运行 │ ├─16 在自己的程序中打开或关闭IE窗口 │ ├─15 模拟鼠标的行为 │ ├─14 限制光标的移动区域 │ ├─13 获取或更改计算机名 │ ├─12 运行程序的单实例 │ └─11 隐藏任务栏 └─1第一节 界面设计 ├─09 在系统菜单上添加自定义菜单项 ├─08 使窗体始终最大化 ├─07 使窗体始终最小化 ├─06 为窗体创建动画光标 ├─05 制作始终位于最上层的窗体 ├─04 制作带背景窗体 ├─03 制作圆形窗体 ├─02 制作无标题栏窗体 ├─10 给窗体边框“镶边” └─01 制作不可移动的窗体
《Delphi 6灵感设计》范例源代码
学习单1 Splash窗口的制作 学习单2 制作不可移动的窗体 学习单3 制作非矩形的窗体 学习单4 制作不可见的窗体 学习单5 移动无标题栏窗口 学习单6 制作始终位于最上层的窗体 学习单7 在系统菜单中添加自定义菜单项 学习单8 将窗体大小限定在一定范围内学习单9 使窗体标题栏闪烁 学习单10 使窗体始终最大（小）化 学习单11 使窗口背景颜色渐变 学习单12 动态创建主菜单和菜单项 学习单13 在窗体上动态地设置背景画面 学习单14 获取窗口标题栏中的文字 学习单15 隐藏和显示桌面上的图标 学习单16 文字动画 学习单17 旋转、倾斜文本 学习单18 获取操作系统的版本信息 学习单19 获取CPU信息 学习单20 获取内存信息 学习单21 使程序开机后自动执行 学习单22 一个程序只运行一次 学习单23 在程序中打开和关闭IE窗口 学习单24 操作INI文件 学习单25 获取文件的日期信息 学习单26 格式化磁盘 学习单27 检测磁盘容量 学习单28 获得安装程序列表 学习单29 程序中实现关机和重启 学习单30 在应用程序窗体中实现超级链接 学习单31 帮助文件的制作 学习单32 安装程序的制作 学习单33 文本搜索程序 学习单34 文件复制程序 学习单35 实现JPG与BMP的互相转换 学习单36 实现BMP到ICON的转换 学习单37 实现图像的飘动效果 学习单38 图像的翻转 学习单39 装入、保存、复制图像 学习单40 制作图像浏览器ACDSee 学习单41 图像的柔化处理效果实现 学习单42 图像的锐化处理效果实现 学习单43 图像的浮雕处理效果实现 学习单44 图像闪烁 学习单45 图像拉伸 学习单46 图像移动 学习单47 图像的交错显示 学习单48 窗体颜色的渐变效果实现 学习单49 按钮的阴影、投影效果实现 学习单50 彩色图变为灰度图 学习单51 实现TColor值到RGB值的变换 学习单52 检测声卡是否安装 学习单53 编写网络浏览器 学习单54 获取主机的IP地址 学习单55 简单邮件发送软件 学习单56 获取本机的MAC地址 学习单57 实现PING链接 学习单58 域名与IP互换 学习单59 远程控制的实现 学习单60 在网络中复制文件 学习单61 获取整个局域网中的可用资源 学习单62 局域网查询主机 学习单63 实现网络驱动器的映射与断开 学习单64 主机端口扫描 学习单65 CGI应用开发 学习单66 ISAPI应用开发 学习单67 数据的录入与修改 学习单68 常规报表的实现 学习单69 基于TTable的Filter属性的查询 学习单70 基于TQuery的Params属性的查询 学习单71 SQL语言的使用 学习单72 一个DBGrid中显示多个数据表数据 学习单73 动态创建数据表 学习单74 在程序中设置ODBC数据源 学习单75 自动检测、建立数据库别名和数据表 任 务 篇任务单76 绘制图形 任务单77 图像编辑器 任务单78 制作mp3播放器 任务单79 多媒体播放器 任务单80 动态报表的实现 任务单81 DLL的制作与调用 任务单82 ADO客户/服务器程序的开发 任务单83 用CORBA数据模块实现多层数据库 任务单84 用DCOM数据模块实现多层数据库 任务单85 可视组件的开发 任务单86 组件包的建立、发布和安装 任务单87 使用Internet Express来创建分布式Web应用 任务单88 COM+分布式应用的实现 任务单89 导出数据到Excel系统 任务单90 简单聊天工具的实现 充 电 篇充电单91 操作剪贴板 充电单92 限制鼠标的位置 充电单93 图形背景变换 充电单94 网上收发消息的实现 充电单95 屏幕保护程序的制作 充电单96 按键的接收及处理 充电单97 文本编辑器 充电单98 制作桌面时钟 充电单99 抓取屏幕 充电单100 扳球小游戏 充电单101 提取应用程序的图标
Web Page Blender(网页搅拌机)
说明文件 程序名：Web Page Blender(网页搅拌机) 功能：将网页进行搅拌 创意开始：2002/4/25 制作日期：2002/4/25 创作意图：本人刚刚开始学习ASP，但在ASP和HTML之间由于不能进行过多的跳转，因此将 HTML代码转换为ASP代码，如: <;;;table width=";;;750";;; border=";;;0";;; cellspacing=";;;0";;; cellpadding=";;;0";;; align=center>;;; <;;;tr bgcolor=";;;#CBCAD2";;;>;;; <;;;td height=";;;68";;;>;;; <;;;div align=";;;center";;;>;;;<;;;font size=";;;6";;;>;;;<;;;b>;;;<;;;font color=";;;#003399";;;>;;;数 据 查 询<;;;/font>;;;<;;;/b>;;;<;;;/font>;;;<;;;/div>;;; <;;;/td>;;; <;;;/tr>;;; <;;;/table>;;; 以上代码先进行替换，";;;替换为";;; & chr(49) & ";;; 再添加前缀s=s & ";;;和后缀";;; 转换后代码如下： s=s & ";;;<;;;table width=";;; & chr(49) & ";;;750";;; & chr(49) & ";;; border=";;; & chr(49) & ";;;0";;; & chr(49) & ";;; cellspacing=";;; & chr(49) & ";;;0";;; & chr(49) & ";;; cellpadding=";;; & chr(49) & ";;;0";;; & chr(49) & ";;; align=center>;;;";;; s=s & ";;; <;;;tr bgcolor=";;; & chr(49) & ";;;#CBCAD2";;; & chr(49) & ";;;>;;;";;; s=s & ";;; <;;;td height=";;; & chr(49) & ";;;68";;; & chr(49) & ";;;>;;;";;; s=s & ";;; <;;;div align=";;; & chr(49) & ";;;center";;; & chr(49) & ";;;>;;;<;;;font size=";;; & chr(49) & ";;;6";;; & chr(49) & ";;;>;;;<;;;b>;;;<;;;font color=";;; & chr(49) & ";;;#003399";;; & chr(49) & ";;;>;;;数 据 查 询<;;;/font>;;;<;;;/b>;;;<;;;/font>;;;<;;;/div>;;;";;; s=s & ";;; <;;;/td>;;;";;; s=s & ";;; <;;;/tr>;;;";;; s=s & ";;;<;;;/table>;;;";;; 其他说明：当然，以上仅举一例说明； 充分发挥你的想像力，把网页“搅”熟 历史记录： 2002/4/25: 1.0版，实现“格式化”的基本功能 2002/4/26: 1.1版，实现“国际版”功能（语言包在language目录下） 只要你愿意，你可以将他变成任意语言版本了 更改替换字符串列表功能：打开language目录下的语言包文件，编辑200到299之间的字串，ＯＫ！ 联系作者：ameiemail@chinaren.com 凌丽软件： 《内存清洁机》1.4版 功能：清除内存中的程序 1.使内存清洁机总在最上层： 选择“上层(&T)”； 2.过滤系统的程序： 选择“过滤(&F)”； 3.强制关闭应用程序： 在右边的列表框选择应用程序，点击“关闭程序(&C)”； 4.显示/隐藏应用程序： 如上； 5.将应用程序显示在最上层/恢复： 如上； 6.显示可用内存； 7.显示“******”部分的密码： 用鼠标移到“******”上，在右下脚显示。 8.隐藏桌面： 用隐藏方式把“Program Manager”隐藏； 9.隐藏任务条： 用隐藏方式把“任务条”隐藏(在Win2000下会自动恢复)； 10.自动追踪： 用鼠标指向一个窗体，列表自动追踪的该窗体； 历史记录 本程序使用 Object Pascal 编写 使用Delphi Build 5.62编译。 1.0 2001年2月 完成基本功能，根据本人写的ＶＢ版本移植而来（在功能上有削减）。 1.01 2002年1月 进一步完善，增加了显示“可用内存”、“上层显示”和查看“密码框内容”。 1.1 2002年4月8日 改善了上层显示的效率，直接使用ＡＰＩ； 修改自动刷新的ＢＵＧ； 1.2 2002年4月13日 增加“托盘”功能； 自动保存配置； 1.3 2002年4月13日 增加在启动菜单加入快捷方式； 增加自动追踪功能。 1.4 2002年4月16 增加自动缩到系统栏功能。 文件分析类（Class）: 分析文本所有的邮件地址或URL，搜索智能超过市场的邮件群发软件。 WinRoute 日志分析器(软件): 网管好帮手，1.1版 在一个大的公司，为了管理方便和安全性，往往会使用代理上网，WinRoute 是一个 集成路由和防火墙的代理服务器，使用范围非常广泛，但是为了统计一下所列的各种 数据确不是很方便，为此编制本程序，让大家很好的掌握通过代理服务器上网的情况 ，为公司的管理带来便捷。 1.每日通过代理上网的计算机 2.每个计算机访问了多少网站 3.流量分析 4.网站的欢迎度 5.列出未经允许的计算机 6.使用用户词典，个性化配置
Delphi 窗体置顶(总在最前面)
代码如下： SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); 只要改变相应参数还可实现其他效果，如隐藏、固定不动等。 下面我举一个复选框的例子： procedure TForm1.checkBox1Click(Sender: TObjec
Delphi

5,402

社区成员

262,733

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

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

+ 用AI写文章