procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;
procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
Message.Result := HTCAPTION;
end;
移动没有CAPTION的窗体
作者：凯旋网络来源：凯旋网络
procedure WMMOVE(VAR Message: TWMNCHITTEST); Message WM_NCHITTEST;
procedure TForm1.WMMOVE(VAR Message: TWMNCHITTEST);
begin
Message.Result := HTCAPTION;
end;