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窗口函数注册机制研究手记》