标签：
注意，这些函数只有Private一种形式（也就是不允许覆盖，但仍在动态表格中）：
TWinControl = class(TControl) private // 41个windows消息，几乎全部消息都是私有函数（因为不需要别人来调用）。很多都是覆盖消息，也有少部分是首次出现。 // 总结规律：直接接受消息的函数都起一个中转站的作用，其函数内容都十分简单。 // WM_PAINT第一次出现，由某些直接继承Win控件的类使用。而图形控件和自绘控件会自己响应这个消息。 // TControl 类控件的鼠标和重绘消息是从 Parent TWinControl 中产生的。但我们只发现了鼠标消息的产生，那么重绘消息是从哪里产生出来的呢？答案是TWinControl.WMPaint // http://hi.baidu.com/bakyman/item/2a426ba5c6251d37020a4d42 procedure WMPaint(var Message: TWMPaint); message WM_PAINT; // 它调用PaintHandler函数，自己除了双缓冲以外不做处理（只有Win控件才能第一次接受这个消息）。 procedure WMNCPaint(var Message: TMessage); message WM_NCPAINT; // 各种特殊效果就靠它了 procedure WMEraseBkgnd(var Message: TWmEraseBkgnd); message WM_ERASEBKGND; // important7 是唯一的消息对应函数，且只有Win控件才能响应这个消息 procedure WMPrintClient(var Message: TWMPrintClient); message WM_PRINTCLIENT; // procedure WMSysColorChange(var Message: TWMSysColorChange); message WM_SYSCOLORCHANGE; // 调色板 procedure WMPaletteChanged(var Message: TMessage); message WM_PALETTECHANGED; procedure WMQueryNewPalette(var Message: TMessage); message WM_QUERYNEWPALETTE; // 重要消息 procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; // fixme 值得研究，搞清楚与Application的关系 procedure WMCommand(var Message: TWMCommand); message WM_COMMAND; // 命令消息，把WM_消息转换成CN_消息 procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY; // 通知消息 // 关键消息 http://bbs.2ccc.com/topic.asp?topicid=455945 procedure WMParentNotify(var Message: TWMParentNotify); message WM_PARENTNOTIFY; // important 子控件创建、销毁、被点击时，这个消息被发到父控件。可以参考 TComponent.Notification procedure WMDestroy(var Message: TWMDestroy); message WM_DESTROY; // fixme 取消内核注册，为什么？ procedure WMNCDestroy(var Message: TWMNCDestroy); message WM_NCDESTROY; procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR; // 系统消息 procedure WMTimeChange(var Message: TMessage); message WM_TIMECHANGE; procedure WMWinIniChange(var Message: TMessage); message WM_WININICHANGE; // 这6个消息都转发到子控件里去，执行子类的DefaultHandler，除非子类覆盖消息索引函数。如果子类都不处理，那么执行TWinControl的DefaultHandler procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL; // 给子控件发消息 procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL; procedure WMCompareItem(var Message: TWMCompareItem); message WM_COMPAREITEM; procedure WMDeleteItem(var Message: TWMDeleteItem); message WM_DELETEITEM; procedure WMDrawItem(var Message: TWMDrawItem); message WM_DRAWITEM; procedure WMMeasureItem(var Message: TWMMeasureItem); message WM_MEASUREITEM; // 位置 procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED; // important procedure WMWindowPosChanging(var Message: TWMWindowPosChanging); message WM_WINDOWPOSCHANGING; procedure WMSize(var Message: TWMSize); message WM_SIZE; procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE; procedure WMMove(var Message: TWMMove); message WM_MOVE; // 按键 procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN; procedure WMSysKeyDown(var Message: TWMKeyDown); message WM_SYSKEYDOWN; procedure WMKeyUp(var Message: TWMKeyUp); message WM_KEYUP; procedure WMSysKeyUp(var Message: TWMKeyUp); message WM_SYSKEYUP; procedure WMChar(var Message: TWMChar); message WM_CHAR; procedure WMCharToItem(var Message: TWMCharToItem); message WM_CHARTOITEM; procedure WMVKeyToItem(var Message: TWMVKeyToItem); message WM_VKEYTOITEM; // 焦点 procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS; procedure WMKillFocus(var Message: TWMSetFocus); message WM_KILLFOCUS; // 输入法 procedure WMIMEStartComp(var Message: TMessage); message WM_IME_STARTCOMPOSITION; procedure WMIMEEndComp(var Message: TMessage); message WM_IME_ENDCOMPOSITION; // 右键菜单，字体 procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU; // 覆盖，发送给Windows控件的子控件。important 很有意思很明了 procedure WMFontChange(var Message: TMessage); message WM_FONTCHANGE; // 31个组件消息 // important 心得：许多消息函数起中转站的作用。对方爱处理不处理，反正目的达到了就行了 // 重要 procedure CMRecreateWnd(var Message: TMessage); message CM_RECREATEWND; // important 毁掉后，重新创建，并加上焦点 procedure CMInvalidate(var Message: TMessage); message CM_INVALIDATE; // important5 调用InvalidateRect后，对每一个子控件都调用此函数 procedure CMChanged(var Message: TMessage); message CM_CHANGED; // 如果有Parent，就调用Parent.WindowProc procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED; // 覆盖消息，更新状态后显示 procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED; // 与TControl的实现不同，调用API procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED; // 简单调用API，真正显示窗口 procedure CMEnter(var Message: TCMEnter); message CM_ENTER; // 读取键盘布局后调用DoEnter procedure CMExit(var Message: TCMExit); message CM_EXIT; // 简单调用DoExit procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST; // TControl也有这个函数 什么都不做 // 一般 procedure CMShowHintChanged(var Message: TMessage); message CM_SHOWHINTCHANGED; // 广播消息 procedure CMChildKey(var Message: TMessage); message CM_CHILDKEY; // 转给父组件执行 // 广播消息 procedure CMDialogKey(var Message: TCMDialogKey); message CM_DIALOGKEY; procedure CMDialogChar(var Message: TCMDialogChar); message CM_DIALOGCHAR; procedure CMSysColorChange(var Message: TMessage); message CM_SYSCOLORCHANGE; procedure CMSysFontChanged(var Message: TMessage); message CM_SYSFONTCHANGED; // 有点特殊，先执行父类同名函数，再广播 procedure CMWinIniChange(var Message: TWMWinIniChange); message CM_WININICHANGE; procedure CMFontChange(var Message: TMessage); message CM_FONTCHANGE; procedure CMTimeChange(var Message: TMessage); message CM_TIMECHANGE; procedure CMFocusChanged(var Message: TCMFocusChanged); message CM_FOCUSCHANGED; // 通知父控件，自己被改变了 procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED; // NotifyControls，会改变消息后转发消息 procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED; // NotifyControls procedure CMCtl3DChanged(var Message: TMessage); message CM_CTL3DCHANGED; // NotifyControls procedure CMBiDiModeChanged(var Message: TMessage); message CM_BIDIMODECHANGED; // // procedure CMBorderChanged(var Message: TMessage); message CM_BORDERCHANGED; // 调用API procedure CMCursorChanged(var Message: TMessage); message CM_CURSORCHANGED; // 发消息，调用API procedure CMParentCtl3DChanged(var Message: TMessage); message CM_PARENTCTL3DCHANGED; procedure CMDrag(var Message: TCMDrag); message CM_DRAG; procedure CMControlListChange(var Message: TMessage); message CM_CONTROLLISTCHANGE; // 简单通知父控件，并调用它的WndProc procedure CMDockClient(var Message: TCMDockClient); message CM_DOCKCLIENT; procedure CMUnDockClient(var Message: TCMUnDockClient); message CM_UNDOCKCLIENT; procedure CMFloat(var Message: TCMFloat); message CM_FLOAT; // 5个控件CN按键消息，还没有真懂 procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN; procedure CNKeyUp(var Message: TWMKeyUp); message CN_KEYUP; procedure CNChar(var Message: TWMChar); message CN_CHAR; procedure CNSysKeyDown(var Message: TWMKeyDown); message CN_SYSKEYDOWN; // important procedure CNSysChar(var Message: TWMChar); message CN_SYSCHAR; end;
再看它的WndProc函数：
procedure TWinControl.WndProc(var Message: TMessage); var Form: TCustomForm; begin with Message do // 只处理少部分Windows控件很明显的通用消息，简单记忆：也就6类消息（不是6个） // 只要是拦截的消息，都要带上Exit，不必继续传递了 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: // important7 fixme 为什么这里也有，消息索引函数里也有呢 begin inherited WndProc(Message); //如果窗体被挡住并且在指定的点没有控件，则返回结果为在client区。 if (Message.Result = HTTRANSPARENT) and (ControlAtPos(ScreenToClient( SmallPointToPoint(TWMNCHitTest(Message).Pos)), False) <> nil) then Message.Result := HTCLIENT; Exit; // 退出 end; //鼠标消息是否直接发往组件的窗体子组件 WM_MOUSEFIRST..WM_MOUSELAST: // 13个鼠标消息，包括了WM_MOUSEMOVE WM_LBUTTONDOWN消息等等。 begin // 我认为TLabel的OnClick第一原动力来自这里，但是没法调试，因为还没点击，鼠标移动也会停到这里来。必须加代码： if Message.Msg = WM_LBUTTONDOWN then begin tag:=10000; end; // 不是简单的判断，此函数做了无数的事情。即使返回False，也仍然执行过了此函数 // 图形控件执行鼠标消息就靠这个函数，这个函数内部如果测试是图形控件的位置接受的鼠标消息，就会Perform执行 if IsControlMouseMsg(TWMMouse(Message)) then // 测试是否是图形子控件的消息，而且消息已经被执行过了 begin { Check HandleAllocated because IsControlMouseMsg might have freed the window if user code executed something like Parent := nil. } // 如果图形子控件处理消息有问题(没有处理)，那么放到父窗口的默认窗口函数里去执行 // FIXME 如果Win控件本身要处理这个消息怎么办？ if (Message.Result = 0) and HandleAllocated then // 我猜是因为，如果控件自身覆盖了鼠标消息，那么就不会执行到这里来了。到了这里就是让系统自动处理鼠标消息 // 屏蔽执行似乎没问题 // 出问题就扔给Windows默认窗口函数，为应用程序没有处理的任何窗口消息提供缺省的处理。该函数确保每一个消息得到处理。 DefWindowProc(Handle, Message.Msg, Message.wParam, Message.lParam); // API，默认窗口函数，真正起作用的一个函数，另一处不起作用 Exit; // 退出 end; end; WM_KEYFIRST..WM_KEYLAST: // 10个键盘消息 if Dragging then Exit; // 退出 WM_CANCELMODE: // 启动模式窗口, 当前窗口会收到一条 WM_CancelMode 消息; 改消息无参数。http://www.cnblogs.com/del/archive/2008/10/29/1322205.html if (GetCapture = Handle) // API fixme and (CaptureControl <> nil) // 全局变量 fixme 要研究 and (CaptureControl.Parent = Self) then // 如果自己是自己的父窗口 CaptureControl.Perform(WM_CANCELMODE, 0, 0); // 那么转发消息 fixme 问题：会转发到哪里呢？还是WndProc吗？回答：不是，图形子控件有相应的消息函数。但它就是Win控件，所以还是会执行到WndProc来。做实验 end; // 上面的消息找不到才进一步向上传递。看前面大多数消息都有Exit inherited WndProc(Message); // important7 最后一定向上传递消息，不管被处理过没有 end;
TWinControl的消息覆盖函数大全（41个WM_函数和31个CM_函数，它的WndProc就处理鼠标(转发)、键盘(取消拖动)、焦点、和WM_NCHITTEST一共4类消息）
标签：
原文地址：http://www.cnblogs.com/findumars/p/5339266.html
