深入理解Delphi的消息机制

　　事实上 TWinControl.MainWndProc 是调用 WindowsProc 来实际处理窗口消息，在 TControl.Create 中 WindowsProc 是被指定成类中虚拟方法 WndProc。从 TControl 到实际的 VCL 窗体类这条继承链上，很多派生类都重载了 WndProc，从而每个重载该方法的派生类都会增加一些功能。当然在继承链的末端，例如 TForm，也可以重载 WndProc，来完成一些 tricky 代码。记住，如果你重载 WndProc，总是先处理自己想要的消息，然后将不处理的消息递交到父类的 WndProc 中处理。

　　在每一个继承类的 WndProc 中应该只处理维持窗体运作的最基本的消息，其他不处理的消息最终会在 TControl.WndProc 中被传递到 TObject.Diapatch。TObject.Diapatch 在自己和父类的动态方法表中查询相应消息 ID，如果找到了，则调用相应的方法。所有处理消息的类方法都应该以关键字 message 定义，这可以保证其入口地址都是存在动态方法表中，从而也保证需要处理的消息 可以在 TObject.Diapatch 执行过程中被调用。

　　如果在动态方表中还是无法查询到需要处理的消息，那么 TObject.Diapatch 会继续调用虚方法 DefaultHandler，TObject.DefaultHandler 只是个 PlaceHolder，该方法在 TWinControl 中被重载， TWinControl 继承类中鲜有继续重载该方法的类，可以认为消息最后一次被处理的机会就是发生在 TWinControl.DefaultHandler 中。我们知道在消息循环中不处理的消息最后都应该交给 Windows 的默认回调函数 DefWindowProc API 来处理， TWinControl.DefaultHandler 最主要的工作就是完成这个，除此之外，还完成几个额外的消息处理[2]。

　　VCL 的消息流程至此为止。

　　可能你还在为整个消息分派流程犯晕，让我用实例来分析一下吧。