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;

并且这种方法比上一种更灵活许多。