移动没有CAPTION的窗体

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

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

本文地址：http://com.8s8s.com/it/it6328.htm