请问这几句代码是什么意思？是几句关于消息的语句，应该怎样学习消息？

Question

声明部分：procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;实现部分：
procedure Tfjs_1.WMNCHitTest(var Msg: TMessage);
begin
  inherited;
  if Msg.Result=HTCAPTION then Msg.Result:=HTCLIENT;
end;请问它们是什么意思？

Answer 1

点击客户区也可以移动窗体。
代码好像要改成这样。
procedure Tfjs_1.WMNCHitTest(var Msg: TMessage);
begin
  if Msg.Result = HTCAPTION then 
    Msg.Result := HTCLIENT
  else
    inherited;
end;