在窗体中增加:
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
implementationprocedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
implementationprocedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货