WEB开发网
开发学院软件开发Delphi 如何移动没有标题的窗体 阅读

如何移动没有标题的窗体

 2006-02-04 13:25:09 来源:WEB开发网   
核心提示:1、如何移动没有标题的窗体* "欺骗"系统,让他认为点中的是窗体的标题行:在FORM的PRivate定义中作如下声明:procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;函数的实现:procedure TForm1.WMN
1、如何移动没有标题的窗体* "欺骗"系统,让他认为点中的是窗体的标题行:在FORM的PRivate定义中作如下声明:procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;函数的实现:procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);begin inherited; if M.Result = htClient then M.Result := htCaption; end;** 更为简单的方法是这样的:在窗体(或其他可视控件)的onMouseMove事件里添加这样的语句:if (ssleft in Shift)then begin ReleaseCapture; Perform(WM_syscommand, $F012, 0);end;并且这种方法比上一种更灵活许多。

Tags:如何 移动 没有

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接