不用标题栏也移动窗体的小技巧_Deiphi窗体文章_Deiphi_编程开发

不用标题栏也移动窗体的小技巧

日期：2008-10-20 22:06:27　　　　来源：

　·Delphi无标题栏窗口程序设计中鼠标拖动技巧　·Delphi无标题窗口的移动
　·Delphi下实现QQ窗体自动隐藏

不用标题栏也移动窗体的小技巧。
　　一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程：

　　在private部分加入下列代码：

　　procedure wmnchittest(var msg:twmnchittest);

　　message wm_nchittest;

　　在程序部分加入以下代码：

　　procedure TForm1.wmnchittest(var msg:twmnchittest);

　　begin

　　inherited;

　　if (htclient=msg.result) then msg.result:=htcaption;

　　end;

　　　　上面的关键代码虽然只有两行，但它实现了鼠标直接拖动窗体的目的。代码的原理是利用窗体的WM_NCHITTEST消息，这个消息是当光标移动、鼠标按下或释放时发生的，当程序检测到鼠标在窗体中按下的消息后（消息的值为htClient），将鼠标在标题栏上按下时产生的消息（值为htCaption）传递出去，这样就巧妙的欺骗程序认为是标题栏被按下，当然就可拖动窗体了。　[1]

--->江民杀毒软件移动版 V9.00.505┊病毒库更新日期07月02日┊简体中文绿色免费版
--->Offline Browser V4.6.2554┊移动设备上运行离线浏览器┊多国语言绿色特别版
--->MoveIt2 V5.800┊移动被添加到指定文件夹当中文件的实用工具┊英文绿色免费版
--->MoveIt2 V5.800┊移动被添加到指定文件夹当中文件的实用工具┊英文绿色免费版
--->文件夹看门狗 V2.80┊加密本机硬盘和移动存储器中文件夹┊简体中文绿色特别版
Tags:　 标题栏 移动窗体

不用标题栏也移动窗体的小技巧

移动没有标题栏的窗口

Google独立推出自己的移动网络

Delphi实现QQ窗体的缩入伸出功能

◎→	本类最新
DELPHI动态生成控件 Delphi编程中创建一个启动闪现窗在win95,win98下实现半透明的窗口拖动无标题栏窗体的方法用Delphi 控制窗体的大小使MDI窗口有一个背景图象或使它平软件启动画面中启动状态的显示

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
delphi的面向对象之路1 Delphi设计形象的动态三维拼图 Delphi使用VB6编写的ActiveX控件 Delphi下实现QQ窗体自动隐藏 DELPHI中DBGrid中行的定位及着色 droopyeyes的字符串操作函数集 ESBMaths v3.2.1 (数学公式包)