我为了移动一个无标题栏的窗体,使用了WM_NCHITTEST消息,这个消息大概如下:
通常,我们拖动对话框窗口的标题栏来移动窗口,但有时候,我们想通过鼠标在客户区上拖动来移动窗口。
一个容易想到的方案是,处理鼠标消息WM_LBUTTONDOWN和WM_LBUTTONUP。在OnLButtonUp函数中计算鼠标位置的变化,调用MoveWindow实现窗口的移动。
注意,拖动标题栏移动窗口的时候,会出现一个矩形框,它提示了窗口移动的当前位置。当鼠标左键放开的时候,窗口就移动到矩形框所在位置。而我们的实现方案中没有这个功能。
要实现此功能,我们必须自己来画这些矩形。
事实上,我们没有必要自己来做这件事情,因为Windows已经给我们做好了。
试想,如果我能够欺骗Windows,告诉它现在鼠标正在拖动的是标题栏而不是客户区,那么窗口移动操作就由Windows来代劳了。
要欺骗Windows并不像想像中的困难,甚至非常简单。
我们利用一个消息:WM_NCHITTEST。
MSDN对它的解释是:
The WM_NCHITTEST message is sent to a window when the cursor moves, or when a mouse button is pressed or released. If the mouse is not captured, the message is sent to the window beneath the cursor. Otherwise, the message is sent to the window that has captured the mouse.
这个消息是当鼠标移动或者有鼠标键按下时候发出的。
Windows用这个消息来做什么? “HITTEST”就是“命中测试”的意思,WM_NCHITTEST消息用来获取鼠标当前命中的位置。
WM_NCHITTEST的消息响应函数会根据鼠标当前的坐标来判断鼠标命中了窗口的哪个部位,消息响应函数的返回值指出了部位,例如它可能会返回HTCAPTION,或者HTCLIENT等。(其返回值有很多,请查阅MSDN)。
为了便于理解,我先描述一下Windows对鼠标键按下的响应流程:
1. 确定鼠标键点击的是哪个窗口。Windows会用表记录当前屏幕上各个窗口的区域坐标,当鼠标驱动程序通知Windows鼠标键按下了,Windows根据鼠标的坐标确定它点击的是哪个窗口。
2. 确定鼠标键点击的是窗口的哪个部位。Windows会向鼠标键点击的窗口发送WM_NCHITTEST消息,来询问鼠标键点击的是窗口的哪个部位。(WM_NCHITTEST的消息响应函数的返回值会通知Windows)。通常来说,WM_NCHITTEST消息是系统来处理的,用户一般不会主动去处理它(也就是说,WM_NCHITTEST的消息响应函数通常采用的是Windows默认的处理函数)。
3. 根据鼠标键点击的部位给窗口发送相应的消息。例如:如果WM_NCHITTEST的消息响应函数的返回值是HTCLIENT,表示鼠标点击的是客户区,则Windows会向窗口发送WM_LBUTTONDOWN消息;如果WM_NCHITTEST的消息响应函数的返回值不是HTCLIENT(可能是HTCAPTION、HTCLOSE、HTMAXBUTTON等),即鼠标点击的是非客户区,Windows就会向窗口发送WM_NCLBUTTONDOWN消息。
我们有必要详细讨论一下:如果WM_NCHITTEST的消息响应函数的返回值是HTCAPTION,即指示了鼠标点击了标题栏,接下去Windows的处理是怎样的?
上面已经提到,接下来,Windows会向窗口发送WM_NCLBUTTONDOWN消息。
MSDN对WM_NCLBUTTONDOWN消息描述如下:
WM_NCLBUTTONDOWN
nHittest = (INT) wParam; // hit-test value
pts = MAKEPOINTS(lParam); // position of cursor
WM_NCLBUTTONDOWN的wParam指示了鼠标点击的窗口部位,lParam指示了当前鼠标的坐标。
如果应用程序没有对该消息响应,则由系统默认处理。
系统默认处理又是怎样的呢?系统发现wParam指示了鼠标点击的是标题栏,就会标识当前窗口处于“拖拽状态”(Windows内部记录了每个窗口的状态信息)。由于标识了“拖拽状态”,则从此刻起到鼠标键放开之前,你的鼠标移动状况完全由Windows跟踪。它根据鼠标的移动,使得窗口作“同步”移动。
注意,这个过程中,窗口不会收到WM_NCMOUSEMOVE消息,因为窗口和鼠标是“同步”移动的,你的鼠标相对于窗口是静止的。
但问题同时也出现了, 我想在右键这个窗体的时候弹出一个菜单, 当我完成 MSG_WM_RBUTTONDOWN 这个消息的时候,发现窗体收不到这个消息, 将WM_NCHITTEST消息的实现去掉就可以了,看了一原因是:
因为你在WM_NCHITTEST中处理了鼠标消息,把他定位成HTCAPTION,也就是鼠标在标题栏上,而标题栏属于非客户区(NC);
非客户区的事件消息都是以WM_NC开头的。也就是说,当你的WM_NCHITTEST返回HTCAPTION时,原来可以用WM_LBUTTONUP处理的消息,你只能用WM_NCLBUTTONUP来处理。
解决方法:
同时处理WM_NCHITTEST和WM_NCRBUTTONUP,而不处理WM_RBUTTONUP
http://www.cnblogs.com/GnagWang/archive/2010/09/12/1824394.html
-----------------------------------------------------------------------
· HTBORDER 在不具有可变大小边框的窗口的边框上。
· HTBOTTOM 在窗口的水平边框的底部。
· HTBOTTOMLEFT 在窗口边框的左下角。
· HTBOTTOMRIGHT 在窗口边框的右下角。
· HTCAPTION 在标题条中。
· HTCLIENT 在客户区中。
· HTERROR 在屏幕背景或窗口之间的分隔线上(与HTNOWHERE相同,除了Windows的DefWndProc函数产生一个系统响声以指明错误)。
· HTGROWBOX 在尺寸框中。
· HTHSCROLL 在水平滚动条上。
· HTLEFT 在窗口的左边框上。
· HTMAXBUTTON 在最大化按钮上。
· HTMENU 在菜单区域。
· HTMINBUTTON 在最小化按钮上。
· HTNOWHERE 在屏幕背景或窗口之间的分隔线上。
· HTREDUCE 在最小化按钮上。
· HTRIGHT 在窗口的右边框上。
· HTSIZE 在尺寸框中。(与HTGROWBOX相同)
· HTSYSMENU 在控制菜单或子窗口的关闭按钮上。
· HTTOP 在窗口水平边框的上方。
· HTTOPLEFT 在窗口边框的左上角。
· HTTOPRIGHT 在窗口边框的右上角。
· HTTRANSPARENT 在一个被其它窗口覆盖的窗口中。
· HTVSCROLL 在垂直滚动条中。
· HTZOOM 在最大化按钮上。
http://blog.csdn.net/harvic880925/article/details/9785439
http://zhouqingfeidie.blog.163.com/blog/static/301717722011112005828716/
---------------------------------------------------------------------
VCL里的使用情况:
procedure TControl.CMHitTest(var Message: TCMHitTest);
begin
Message.Result := HTCLIENT; // 凡是转发到TControl的,都是位于客户区
end; procedure TWinControl.WMNCHitTest(var Message: TWMNCHitTest);
begin
with Message do
if (csDesigning in ComponentState) and (FParent <> nil) then
Result := HTCLIENT // 组件处于设计状态时,都算作位于客户区
else
inherited;
end; procedure TWinControl.WndProc(var Message: TMessage);
var
Form: TCustomForm;
begin
case Message.Msg of
WM_SETFOCUS:
begin
Form := GetParentForm(Self);
if (Form <> nil) and not Form.SetFocusedControl(Self) then Exit;
end;
WM_KILLFOCUS:
if csFocusing in ControlState then Exit;
WM_NCHITTEST:
begin
inherited WndProc(Message); // 一般情况下委托给父类函数处理
if (Message.Result = HTTRANSPARENT) and (ControlAtPos(ScreenToClient(
SmallPointToPoint(TWMNCHitTest(Message).Pos)), False) <> nil) then
Message.Result := HTCLIENT; // 但如果父类的处理结果是透明,那么就重新测试,并且算位于客户区
Exit;
end;
WM_MOUSEFIRST..WM_MOUSELAST:
begin
if Message.Msg = WM_LBUTTONUP then
begin
tag := ;
end;
if IsControlMouseMsg(TWMMouse(Message)) then
begin
{ Check HandleAllocated because IsControlMouseMsg might have freed the
window if user code executed something like Parent := nil. }
if (Message.Result = ) and HandleAllocated then
DefWindowProc(Handle, Message.Msg, Message.wParam, Message.lParam);
Exit;
end;
end;
WM_KEYFIRST..WM_KEYLAST:
if Dragging then Exit;
WM_CANCELMODE:
if (GetCapture = Handle) and (CaptureControl <> nil) and
(CaptureControl.Parent = Self) then
CaptureControl.Perform(WM_CANCELMODE, , );
end;
inherited WndProc(Message);
end; procedure TWinControl.WMSetCursor(var Message: TWMSetCursor);
var
Cursor: TCursor;
Control: TControl;
P: TPoint;
begin
with Message do
if CursorWnd = FHandle then
case Smallint(HitTest) of // 其中HitTest是TWMSetCursor消息结构体自带的Word类型数据
HTCLIENT: // 如果位于客户区,则进行一系列处理,包括改变光标和进一步测试
begin
Cursor := Screen.Cursor;
if Cursor = crDefault then
begin
GetCursorPos(P);
Control := ControlAtPos(ScreenToClient(P), False);
if (Control <> nil) then
if csDesigning in Control.ComponentState then
Cursor := crArrow
else
Cursor := Control.FCursor;
if Cursor = crDefault then
if csDesigning in ComponentState then
Cursor := crArrow
else
Cursor := FCursor;
end;
if Cursor <> crDefault then
begin
Windows.SetCursor(Screen.Cursors[Cursor]);
Result := ;
Exit;
end;
end;
HTERROR: // 如果测试出错,则把当前程序设置为最前窗口,并且退出测试(以利于进一步测试)
if (MouseMsg = WM_LBUTTONDOWN) and (Application.Handle <> ) and
(GetForegroundWindow <> GetLastActivePopup(Application.Handle)) then
begin
Application.BringToFront;
Exit;
end;
end;
inherited;
end; procedure TWinControl.CMCursorChanged(var Message: TMessage);
var
P: TPoint;
begin
if GetCapture = then
begin
GetCursorPos(P);
if FindDragTarget(P, False) = Self then
Perform(WM_SETCURSOR, Handle, HTCLIENT); // 当移动目的控件是当前Win控件的时候,就发送设置焦点的消息,并且传递Handle和HTCLIENT做进一步的处理
end;
end;
其中还有对CM_HITTEST的处理情况:
function TWinControl.ControlAtPos(const Pos: TPoint; AllowDisabled,
AllowWinControls: Boolean): TControl;
var
I: Integer;
P: TPoint;
LControl: TControl;
function GetControlAtPos(AControl: TControl): Boolean;
begin
with AControl do
begin
P := Point(Pos.X - Left, Pos.Y - Top);
Result := PtInRect(ClientRect, P) and
((csDesigning in ComponentState) and (Visible or
not (csNoDesignVisible in ControlStyle)) or
(Visible and (Enabled or AllowDisabled) and
(Perform(CM_HITTEST, , Longint(PointToSmallPoint(P))) <> ))); // 在VCL内部测试,当前测试点是否位于当前控件区域(利用了函数返回值)
if Result then
LControl := AControl;
end;
end;
begin
LControl := nil;
if AllowWinControls and
(FWinControls <> nil) then
for I := FWinControls.Count - downto do
if GetControlAtPos(FWinControls[I]) then
Break;
if (FControls <> nil) and
(LControl = nil) then
for I := FControls.Count - downto do
if GetControlAtPos(FControls[I]) then
Break;
Result := LControl;
end;
还需进一步总结。。。