方法一
以下是完成上述功能最普通的方法：在窗体的private声明部分加入以下过程声明：
procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;
然后在implementation部分加入以下代码：
procedure TForm1{或你定义的Form名}.WMNCHitTest(var Msg:TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result:= HTCAPTION;
end;
此方法中使当鼠标点击窗体客户区时，令Windows认为被点击的是标题栏。
方法二
以下是另一个实现用鼠标移动普通窗体的方法。
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (ssLeft in Shift) then begin
ReleaseCapture;
SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
end;
以上方法不完善之处
当把“拖动窗口的过程中显示其内容”的选项取消时，让我们看看会发生什么。这是Windows窗口的一项设置，你可以在“开始菜单-->设置-->文件夹选项-->查看-->高级设置”中找到该属性。在Windows95中，你需要修改注册表。当此属性被设为无效，拖动窗体时窗体会变为一个正方形轮廓线。也许你使用一个不规则窗体，但它仍然会显示轮廓线。
当你想要让你的窗体停靠在屏幕的边缘（如：WinAmp，当你拖动窗体进入屏幕顶部某一特定位置时，窗体便紧靠在屏幕顶部），如果你使用以上第二种方法，在鼠标按钮放开前，你将无法处理窗体位置，并无法处理停靠问题。
下面我会用简单的方法解决两个问题：
第一，无论设置为何，在拖动窗体时都不显示轮廓线；
第二，移动窗体时进行位置检测，并在位置适当时停靠在某一特定位置。
很多人也许已经解决了这些问题，但是也许下面的代码对你会有帮助。
方法三
以下代码可以直接复制到Delphi中，前提是你将Form1存为uMain.pas，Form2存为uDock.pas。用到的事件是：OnMouseDown，OnMouseMove，OnMouseUp，OnShow（Form1）。
这是一个根据鼠标的移动移动窗体的方法，包含两个窗体，uMain和uDock（Form1和Form2）。Form2通过Form1打开，并可以停靠在Form1的底部。停靠后，Form2将随Form1一起移动，直到你将Form2移开。