点击客户区也能拖动窗口

procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;

procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest);beginDefaultHandler(Msg);if Msg.Result = HTClient then   Msg.Result := HTCaption;end;