移动没有CAPTION的窗体

核心提示：PRocedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);begin Message.Result := HTCAPTION;end;

PRocedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;

procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
  Message.Result := HTCAPTION;
end;