谁能给我解释下一下代码 感谢

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then
      M.Result := htCaption;