TObject消息分派
procedure Dispatch(var Message); virtual; #负责分派消息到特定VCL组件的事件处理函数
procedure DefaultHandler(var Message); virtual;
#消息分类：通过子类覆盖此方法，处理窗口命令消息，窗口标准消息，VCL自行触发消息，VCL通知消息，自定义
VCL封装类的方法种类
procedure WMButtonUp(var Message: TWMButtonUp); message WM_LButtonUP #windows消息
proceudre CMParentFontChanged(var Message: TMessage); message ... #处理VCL内部定义的消息
procedure Click; dynamic; #鼠标点击事件处理方法
procedure Button1Click(Sender: TObject); #鼠标事件的回调函数，用户可以扩展
TApplication
TApplication的创建 在Controls单元的初始化代码中。
TApplication的秘密窗口
Create方法 -> CreateHandle ->
{
FObjectInstance := MakeObjectInstance
SetWindowLong(FHandle, GWL_WNDPROC, Longint(FObjectInstance))
}
TWinControl类和它的派生类，使用MainWndProc方法作为处理窗口消息的进入点函数。
TControl的WndProc是真正处理窗口消息的函数。
消息分派流程
关键的一些函数：
1、如何用类方法取代一般的窗口回调函数；
2、InitWndProc
3、MakeObjectInstance
4、StdWndProc
5、TObject的消息分派服务
TButton类的Click
TButtonControl覆盖WndProc方法，继承父类，到TControl.WndProc中调用Dispatch方法
传递消息的ID为WM_COMMAND
通过TCustomForm到TWinControl，WMCommand调用DoControlMsg，再调用FindControl
这时找到了Button这个控件，再调用TControl.Perform方法
Perform方法会再调用WndProc方法，经Dispatch发送消息
TForm类
比如鼠标点击，有直接对应的Windows消息。
VCL设计模式
Dispatcher模式
使用场景：只要有正确的分类，每类有不同的处理方式，就可以使用。
效果：可以有效避免大量分支，可以快速找到代码，便于维护。
BroadCasting
使用场景：将一致的消息分派给所有的子组件。
使用实例：TWinControl.BroadCast
问题
VCL如何找到目标VCL组件的？ TWinControl.WMCommand方法调用了DoControlMsg，其中调用了FindControl方法
参考文献
其他网上已经有很多类似的文字，在此引用下文献名称：
《Delphi 消息机制学习笔记》
《Delphi 的消息机制浅探》
《VCL窗口函数注册机制研究手记》