文件名称：不按住标题栏实现的窗口拖动效果-Delphi.rar
文件大小：4KB
文件格式：RAR
更新时间：2022-07-30 03:18:38
Delphi源码-界面编程
Delphi实现个性的窗口拖动功能，不按住标题栏实现的窗口拖动效果，因为一般情况下，都是按住窗口的标题栏才能拖动窗口，本实例代码将演示不按标题栏也可拖动窗口移动位置。if (htclient=msg.result) then msg.result:=htcaption; //上面的关键代码虽然只有两行，但它实现了鼠标直接拖动窗体的目的。 //代码的原理是利用窗体的WM_NCHITTEST消息，这个消息是当光标移动、鼠标按下或释放时发生的， //当程序检测到鼠标在窗体中按下的消息后（消息的值为htClient）， //将鼠标在标题栏上按下时产生的消息（值为htCaption）传递出去， //这样就巧妙的欺骗程序认为是标题栏被按下，当然就可拖动窗体了。
【文件预览】：
codesc.net
----dragform()
--------Project1.res(876B)
--------Unit1.dfm(328B)
--------Project1.cfg(386B)
--------Unit1.pas(902B)
--------Project1.dpr(188B)
--------Project1.dof(1KB)
--------Unit1.dcu(3KB)