如何移动没有标题的窗体

2019-11-18 19:00:56

字体：大中小

来源：转载

供稿：网友

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;并且这种方法比上一种更灵活许多。

上一篇：直接访问WebBrowser控件中的HTML源码

下一篇：应用程序敏感键的实现

学习交流

索泰发布一款GTX 1070 Mini迷你版本:小机

索泰发布一款GTX 1070 Mini迷你版本:小机箱大爱...

热门图片

猜你喜欢的新闻

猜你喜欢的关注