移动没有CAPTION的窗体 (转)[@more@]
procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;
procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
Message.Result := HTCAPTION;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/10790690/viewspace-951279/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
得到当前的光驱的盘符。 (转)
请登录后发表评论
登录
全部评论
