摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>Deiphi>Deiphi窗体文章
◎→ 本类最新
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 (数学公式包)

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


日期: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]

移动没有标题栏的窗口

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

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

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

芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们