如何使用Delphi实现无边界窗体的移动

领测软件测试网

　　｛判断光标是否在用户工作区内｝ 

　　ifDefWindowProc（Handle，WM—NCHitTest，0，Get 
MessagePos）ΚHTClientthen 

　　begin 

　　｛发出鼠标在用户标题栏内被按下的消息｝ 

　　SendMessage（Handle，WM—NCLButtonDown， 

　　HTCaption，GetMessagePos）； 

　　Handled：Κtrue；｛消息处理完毕，窗体不再接受M 
ouseDown及Click事件，如果为false，程序的运行稍微有 
些不正常。｝ 

　　end； 

　　end； 

文章来源于领测软件测试网 https://www.ltesting.net/