深入理解Delphi的消息机制

　　一个 Button 被点击，在 TButton 内部会发生两个消息：WM_LBUTTONDOWN/WM_LBUTTONUP， TButton 没有处理 WM_LBUTTONUP（问题：为什么只响应 WM_LBUTTONUP，这两个消息只应该发生在 Windows 原生控件内，除非 TButton subclass 了 "Button"，这部分代码我没看），只是交给 TWinControl.DefaultHandler，随后 TButton 又将生成的 WM_COMMAND 消息发送给它的 Parent，即 TForm，经过一系列消息传递， WM_COMMAND 在 TWinControl.WMCommand 中被处理，通过 DoControlMsg 将 WM_COMMAND 加工成 CN_COMMAND，再利用 TControl.Perform 将 CN_COMMAND 传回 TButton，又通过一系列的消息传递到 TButton 中的 Dispatch，通过查询动态方法表找到 Handler -- TButton.CNCommand，它又调用虚方法 TButton.Click，继而调用 TControl.Click，在这个方法中会调用 FOnClick，而 FOnClick 特性值的内容就是当程序员使用对象查看器撰写 TButton 的 OnClick 事件处理函数时 Delphi 便会自动指定给 TButton 的 OnClick 特性，例子中 OnClick 被指定为 TForm1.Button1Click，因此 TForm1.Button1Click 最终被调用。

　　2. TForm

　　新建一个 Application，为 Form1 的 OnMouseDown 事件随便写一点代码，在这个方法上设断点，F9 运行，看看 Call Stack

　　TForm1.FormMouseDown(???,???,[ssLeft],346,212)
TControl.MouseDown(mbLeft,[ssLeft],346,212)
TControl.DoMouseDown((513, 1, 346, 212, (346, 212), 0),mbLeft,[])
TControl.WMLButtonDown((513, 1, 346, 212, (346, 212), 0))
TControl.WndProc((513, 1, 13893978, 0, 1, 0, 346, 212, 0, 0))
TWinControl.WndProc((513, 1, 13893978, 0, 1, 0, 346, 212, 0, 0))
TCustomForm.WndProc((513, 1, 13893978, 0, 1, 0, 346, 212, 0, 0))
TWinControl.MainWndProc((513, 1, 13893978, 0, 1, 0, 346, 212, 0, 0))
StdWndProc(2687598,513,1,13893978)
TApplication.HandleMessage
TApplication.Run
Project1