procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;
procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTClient then
Msg.Result := HTCaption;
end;
procedure WmNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;
procedure TForm1.WmNCHitTest(var Msg: TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTClient then
Msg.Result := HTCaption;
end;