Stuff
public text v1 · immutableprocedure TForm1.WMNCHitTest (var Msg: TWMNCHitTest);
begin
inherited;
if (Msg.Result = htClient) and (Msg.YPos < Label1.Height + Top + GetSystemMetrics(sm_cyFrame)) then
Msg.Result = htCaption;
end;procedure TForm1.WMNCHitTest (var Msg: TWMNCHitTest);
begin
inherited;
if (Msg.Result = htClient) and (Msg.YPos < Label1.Height + Top + GetSystemMetrics(sm_cyFrame)) then
Msg.Result = htCaption;
end;