| 如何移动没有标题的窗体 |
|
| 作者：YesHack 文章来源：YesHack.Com 更新时间：2006-9-21 12:40:39
【字体：小 大】 |
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; 并且这种方法比上一种更灵活许多。
|
友情提示：如果您对本文章的内容存在疑问请到点此进入论坛进行讨论
|
|
| 教程录入：YesHack 责任编辑：YesHack |
|
|
上一个教程： Delphi控件的使用经验
下一个教程： 直接访问WebBrowser控件中的HTML源码 |
| |
您现在的位置： 
