Delphi 消息机制学习笔记

标题：Delphi 消息机制学习笔记

完成日期：2004年08月12日

前言
最近几天又将李维《Inside VCl》书中关于 Delphi 中 Windows 消息机制的实现看了一遍，这是第二遍了，本来看第一遍时已经完全看懂了，但没做笔记，害得我又看了一遍，这回下定决心写一个笔记。与此同时，我在网上游荡时幸运地看到了两篇论述 Delphi 消息框架的文章，某些部分分析得相当深入，非常好的 Delphi 消息机制总结。这下一来又不想写笔记了，但后来一琢磨他们这些文章写得虽然好，但毕竟不是自己写的，要想理清消息机制这条线，非要自己动笔写一下不可， 能将你认为懂的东西表述出来那才是真懂。在这里我不得不多说两句，李维的书中很多地方我认为写得并不是很好，有时某个主题虽然用了N长的篇幅去写，好像也没有上面的文章中某些部分写得透彻，例如 对 MakeObjectInstance 这个牛X函数表述我就认为写得一点都不好，所以不要老崇拜所谓的老大，呵呵。
在文中很多地方我会写得特别简单，因为更详细地描述在李维的书中以及我参考的文章里已经写得很清楚了，为此我不会再费笔墨，只是将整个流程串一下，并写几个有价值的范例。

正文
永远记住，无论你是用 SDK 还是借用 VCL 来创建窗口，都要遵循 Windows 的游戏规则，即先注册窗口类，然后再创建窗口实例，在消息循环中写实现代码。你还要知道 Windows 已经为了我们预注册了多个窗口类，例如“Edit”、“ComboBox”，这时候我们要做的就是直接创建这些窗口，无需注册窗口类了；在 Delphi 中这一切更简单了，VCL 全部为你做好了，你只需简单地在设计窗体上拖动你要的控件再写实现代码就可以了，是不是很 cool？

一，窗口的创建
VCL 中，具有句柄(Handle) 属性的真正窗口控件全部继承自 TWinControl，那就从 TWinControl 的创建开始说起。
VCL 中窗口的建立不是按照我们想象中的流程创建的，即先把所有的窗口都创建好，然后再调用，而是在需要时才创建。可能你还不能理解我这句话的意思，慢慢看。继承自 TWinControl 的窗口控件都会有 Handle 属性，当代码中需要 Handle 值时，通过该属性的 getter 调用 TWinControl.HandleNeeded 来获得句柄，这时如果窗体已经建立，直接返回句柄，否则先创建窗口实例，再返回句柄，因此窗口创建是在 TWinControl.HandleNeeded 中实现的。Borland 这样做的目的我想是最大程度地来节省系统资源吧。
TWinControl.HandleNeeded 中有几个重要的方法，通过他们才得以创建窗口。TWinControl.HandleNeeded 调用TWinControl.CreateHandle 来获得 Handle。但 CreateHandle 只是个包装函数，它首先调用 TWinControl.CreateWnd 来创建窗口，CreateWnd 是一个重要的过程，它先调用 TWinControl.CreateParams 设置创建窗口的参数，通过这些参数调用 RegisterClass API 注册窗口类，CreateWnd 然后调用 TWinControl.CreateWindowHandle，CreateWindowHandle 才是真正调用 CreateWindowEx API 创建窗口实例的函数。CreateHandle、CreateWnd、CreateParams、CreateWindowHandle都是虚方法，派生类可以重载这些方法以获得更多的功能 ，其中 CreateParams 被重载的几率最大。
上面提到的方法源码我建议你都要仔细看一遍，加深印象，后面我提到的方法，你也都要看看源码，受益无穷呀，我将不再提示。
至此一个窗口算是建立起来了，但是还是无法正确运行，因为它还没有消息循环。

二，消息循环的实现
消息循环的实现是整个 VCL 消息框架中写得最精彩的地方，因为传统的 Windows 回调函数是一个静态函数，而 VCL 中的窗体是类，调用类方法时，除了函数本身的地址，还需一个 Self，在它们之间建立关联真不是一件容易的事情，需要大量的代码技巧，同时消息循环还要保证每秒钟能处理几百到几万次的消息量，因此代码更需要写得精巧。 研习这部分代码可能会花比较多的时间。
我们知道注册窗体类时就要提供窗体回调函数入口地址，那么可以想象到 VCL 中这个过程是发生在对 TWinControl.CreateWnd 的调用中，在该方法中，静态函数指针 @InitWndProc 被赋值给 WNDCLASSEX 结构中的 lpfnWndProc，这是 VCl 窗体首次建立消息循环的地方。
InitWndProc 第一次被调用时，通过 SetWindowLong API 将消息回调函数替换成 TWindowControl.FObjectInstance，而TWinControl.FObjectInstance 就是一个普通的 Pointer，赋值是在 TWinControl.Create 中通过那个最具 Magic 的函数 MakeObjectInstance 完成的，这个过程非常复杂，详细描述见参考[3]。
替换的结果是类方法 TWinControl.MainWndProc 成为真正的消息处理 Handler，随后的对应窗体实例的消息处理全部在 TWinControl.MainWndProc 中完成。其中还有一个细节就是消息在被 MainWndProc 处理之前还要调用一个纯汇编写的静态函数 -- StdWndProc 将消息统一派发[1]。至此完成消息回调从普通的静态函数到类方法的转变。
事实上 TWinControl.MainWndProc 是调用 WindowsProc 来实际处理窗口消息，在 TControl.Create 中 WindowsProc 是被指定成类中虚拟方法 WndProc。从 TControl 到实际的 VCL 窗体类这条继承链上，很多派生类都重载了 WndProc，从而每个重载该方法的派生类都会增加一些功能。当然在继承链的末端，例如 TForm，也可以重载 WndProc，来完成一些 tricky 代码。记住，如果你重载 WndProc，总是先处理自己想要的消息，然后将不处理的消息递交到父类的 WndProc 中处理。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!