{在控件的MouseDown事件中加入相似代码，可以实现点击该控件拖动窗体。}
{......}
const
   SC_DRAGMOVE: LongInt = $F012{61458}; // 系统没有这个，要自己加
begin
   ReleaseCapture;
   SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
   {......}
end;