窗体拖动

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);

begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
窗体拖动。