代码不懂请指教

Question

小弟新手，有一段代码不懂，请各位大虾指教。procedure TfrmMain.WMNCHITTEST(var M:TWMNCHITTEST);
begin
    inherited;
    if M.Result=HTCLIENT then
        M.Result:=HTCAPTION;
end;

Answer 1

procedure TfrmMain.WMNCHITTEST(var M:TWMNCHITTEST); //应该是一个消息处理的过程
begin
    inherited;//继承原有的消息事件
    if M.Result=HTCLIENT then // 
        M.Result:=HTCAPTION;
end;
我读起来也很吃力！
关注中

Answer 2

和DelphiBoy2003(一朵梨花压海棠,玉树临风胜潘安) 联系起来
有些明白了
 if M.Result=HTCLIENT then //  如果鼠标点击在客户区域
        M.Result:=HTCAPTION; //系统将鼠标转移到标题上

Answer 3

你上面这段代码的功能呢，就是实现无标题窗口的移动功能的。。因为平时，只有我们将鼠标移到了标题栏上，才能拖放窗口
而这段代码将鼠标在窗体客户区域的点击事件转换到了标题上，从而实现了我们需要的功能
Delphi中的窗体移动 　 
　　如果你在开发图形或多媒体应用程序，你可能正在为如何不使用窗体的标题栏而移动窗体发愁。其实只需用鼠标拖动窗体的客户区就可以了。方法一
　　以下是完成上述功能最普通的方法：在窗体的private声明部分加入以下过程声明：　　procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHITTEST;　　然后在implementation部分加入以下代码：procedure TForm1{或你定义的Form名}.WMNCHitTest(var Msg:TWMNCHitTest);
begin
DefaultHandler(Msg);
if Msg.Result = HTCLIENT then
Msg.Result:= HTCAPTION;
end;　　此方法中使当鼠标点击窗体客户区时，令Windows认为被点击的是标题栏。方法二
　　以下是另一个实现用鼠标移动普通窗体的方法。procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (ssLeft in Shift) then begin
ReleaseCapture;
SendMessage(Form1.Handle,WM_SYSCOMMAND,SC_MOVE+1,0);
end;
end;以上方法不完善之处
　　当把“拖动窗口的过程中显示其内容”的选项取消时，让我们看看会发生什么。这是Windows窗口的一项设置，你可以在“开始菜单-->设置-->文件夹选项-->查看-->高级设置”中找到该属性。在Windows95中，你需要修改注册表。当此属性被设为无效，拖动窗体时窗体会变为一个正方形轮廓线。也许你使用一个不规则窗体，但它仍然会显示轮廓线。
　　当你想要让你的窗体停靠在屏幕的边缘（如：WinAmp，当你拖动窗体进入屏幕顶部某一特定位置时，窗体便紧靠在屏幕顶部），如果你使用以上第二种方法，在鼠标按钮放开前，你将无法处理窗体位置，并无法处理停靠问题。
　　下面我会用简单的方法解决两个问题：
　　第一，无论设置为何，在拖动窗体时都不显示轮廓线；
　　第二，移动窗体时进行位置检测，并在位置适当时停靠在某一特定位置。