代码不懂请指教

[charleschen35126]

小弟新手，有一段代码不懂，请各位大虾指教。

procedure TfrmMain.WMNCHITTEST(var M:TWMNCHITTEST);
begin
inherited;
if M.Result=HTCLIENT then
M.Result:=HTCAPTION;
end;

[DelphiBoy2003]

如果鼠标现在点击在客户区范围内，告诉系统现在鼠标位于窗口的标题栏上面！这个一般是用于自绘画标题栏上面用到的代码

[superTY]

up

[newnewworm]

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

[newnewworm]

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

[Drate]

你上面这段代码的功能呢，就是实现无标题窗口的移动功能的。。

因为平时，只有我们将鼠标移到了标题栏上，才能拖放窗口
而这段代码将鼠标在窗体客户区域的点击事件转换到了标题上，从而实现了我们需要的功能


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，当你拖动窗体进入屏幕顶部某一特定位置时，窗体便紧靠在屏幕顶部），如果你使用以上第二种方法，在鼠标按钮放开前，你将无法处理窗体位置，并无法处理停靠问题。
　　下面我会用简单的方法解决两个问题：
　　第一，无论设置为何，在拖动窗体时都不显示轮廓线；
　　第二，移动窗体时进行位置检测，并在位置适当时停靠在某一特定位置。