移动没有CAPTION的窗体 (转)

移动没有CAPTION的窗体 (转)[@more@]

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

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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-987426/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-987426/