如何移动没有标题的窗体计算机等级考试

文章作者 100test 发表时间 2009:07:07 21:54:07
来源 100Test.Com百考试题网

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