代碼: 選擇全部
procedure mNCHITTEST(var Msg : TWMNCHitTest);message WM_NCHITTEST;
procedure Tform1.mNCHITTEST(var Msg : TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;
代碼: 選擇全部
procedure mNCHITTEST(var Msg : TWMNCHitTest);message WM_NCHITTEST;
procedure Tform1.mNCHITTEST(var Msg : TWMNCHitTest);
begin
inherited;
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;