VCL框架学习之:如何将Windows消息与控件事件挂接起来

本文链接：https://blog.csdn.net/sharpnessdotnet/article/details/1955349

//①从MakeObjectInstance(Method:TWndMethod):Pointer说起
MakeObjectInstance(Method:TWndMethod):Pointer
             Begin
              //构造一个4096大小的内存块TInstanceBlock,如果该块已满,则创建一个新的4096大小的内存快以形成链表结构
             //对于每一个4096大小的内存快TInstanceBlock,均由以下数据结构组成:
               {
                          Next:指向下一个TInstanceBlock内存块的指针
                          Code:汇编跳跃指令,跳转到stdWndProc地址
                          WndProcPtr:指针
                          Instances:一个TObjectInstance类型的数组,数组的维度以填满4096块为止
             }
             //其中,对于每一个TObjectInstance类型的元素,均由以下数据结构组成:
             {
                          Code: 和Offset一起组成一个汇编跳跃指令,跳转到TInstanceBlock的Code地址（TInstanceBlock的Code地址中包换跳转到stdWndProc地址的汇编指令）
                          Offset:
                          Integer:0代表下一个元素地址,1代表TWndMethod地址
             }
             //VCL把每一个TForm类或是控件中处理窗口消息方法指针放入到TObjectInstance中
             //MakeObjectInstance函数最后返回的是TObjectInstance的地址,当成窗口回调函数由Windows操作系统调用
             //最后,通过TObjectInstance的汇编跳跃指令转移到TInstanceBlock的Code地址，而TInstanceBlock的Code地址包含了跳转到stdWndProc地址的汇编指令，最终,Windows操作系统通过MakeObjectInstance完成了从Windows消息到stdWndProc的一个调用
End;
//②stdWndPro函数究竟做了些什么?
1. 完成转换Windows操作系统使用的stdcall调用惯例为register调用惯例以调用到类之中的消息处理函数;
2. 将Self指针推入栈中;
3. 完成MainWndProc函数的调用,从而最终实现了从普通Window函数调用到类方法调用的转换;
//③预定义的消息类型
控件消息类的自定义消息:CM_XXX;
控件通知类的自定义消息:CN_XXX;
其中
             CN_XXX = CN_BASE + CM_YYY;//存在一定的预定计算关系
//④完整的消息分配流程:以TButton的Click说起(假设Click事件触发了WM_COMMOND消息):
1. TButton的父类TButtonControl重载了父类TWinControl的WndProc方法,并在其中处理了部分消息,未处理的消息均通过inherited WndProc调用来转交给TWinControl的WndProc方法；
2. TButton同时还重载了父类的CreateParams方法实现窗口类数据结构内容的定义(通俗的说,就是实现了自己的自定义属性的设置)
3. 由于TButton是属于主窗体的组件,因此窗口触发的WM_COMMAND窗口消息会调用主窗体的MainWndProc函数来处理,这就是TWinControl.MainWndProc, TWinControl.MainWndProc会调用TForm.WndProc虚拟方法来处理窗口消息, TForm.WndProc又会调用TCustomForm.WndProc来处理, TCustomForm.WndProc又调用TWinControl.WndProc处理,最后TWinControl.WndProc调用了TControl.WndProc(说明:继承链使然)；
4. 到了TControl.WndProc然后没有处理WM_COMMAND消息,因此TControl调用了TObject的消息分派服务虚拟方法Dispatch来处理:
Procedure TControl.WndProc(var Message:TMessage)
             Var
             …
             Dispatch(Message);
End;
5. TObject.Dispatch会在TForm1的动态方法表格中是否有方法可处理WM_COMMAND消息,由于TForm1没有定义处理WM_COMMAND消息的动态方法,因此TObject.Dispatch会继续到TForm1的父类的动态方法表格中搜寻,一直寻找到能够处理WM_COMMAND窗口消息的动态方法为止;
6. 最后,我们在TCustomForm中找到处理WM_COMMAND窗口消息的动态方法WMCommand:
Procedure TCustomForm.WMCommand(var Message:TWMCommand);message WM_COMMAND;
             …
             Inherited;//调用父类TWinControl实现
             …
End;
7. TWinCOntrol.WMCommand方法内容如下:
             …
             If not DoControlMsg(Message.Ctl,Message) then Inherited;
             …
8. TWinCOntrol.DoControlMsg方法内容如下:
Function DoControlMsg(ControlHandle:HWnd;var Message):Boolean
             …
             Control := FindCOntrol(ControlHandle);//通过消息系统找到消息发送源（即TButton）,如何找到的请参见⑤
             …
             With TMessage(Messgae) do
             …
             Control.Perform(Msg + CN_BASE,WParam,LParam);//调用TControl的Perform方法,请注意,通过CN_BASE的代数计算已完成从控件消息类的自定义消息到控件通知类的自定义消息的转换,详情请参见③;
             …
End;
9. TControl.Perform方法内容:
Function TControl.Perform(Msg:Cardinal;…)
             …
             WindowProc(Message);//请注意此时的消息为CN_XXX;
             …
10. 在TControl的构造函数中已经把虚拟方法的WndProc制定给了Perform函数中的WindowProc了,所以,Perform是调用了WndProc来处理窗口消息;
11. 虚拟方法WindowProc会再经由TObject的Dispatch在组件中搜寻能够处理此消息的处理函数，我们再到TButton类中果然可以发现TButton定义了CNCommand方法来处理DoControlMsg发出的CN_COMMAND消息(由步骤8转换而来)；
12. TButton.CNCommand的定义:
             …
             If Message.NotifyCode = BN_CLICKED then Click;
             …

13. 到此已完成了,大家不用看就应该明白了,是的，正如你想到的,TControl中定义了动态方法Click,被TButton重载,在TButton.Click中,对其所在的窗体的特性值进行了一个修改(具体什么用尚不明确),然后就inherited Click;调用父类的实现了;
14. 最后,在TControl.Click中,检查程序员是否已撰写Onclick事件处理函数,如果已写的话,就经由FOnclick调用程序员撰写的代码;
15. 当然了，TButton的实例Button1是这样定义的:
Object Button1:TButton
             …
             Onclick = Button1Click
             …
End
⑤如何在消息系统中寻找一个对象的实例?
Function FindControl(Handle:HWnd):TWinControl
             …
             Result := ObjectFromHwnd(Handle);
             …
End;
Function ObjectFromHwnd(Handle:HWnd):TWinControl
             …
             Result := Pointer(SendMessage(Handle,RM_GetObjectInstance,0,0));//通过SendMessage方法发送一个特定的消息后得到一个指针并返回该地址
             …
End;
Procedure TWinControl.DefaultHandler(var Message);//默认的消息处理方法,不被显式处理的消息在此处理
             …
             If Msg = RM_GetObjectInstance then
                          Result := integer(Self);//经典吧?收到RM_GetObjectInstance这个消息就返回自己的地址,这个自己当然是TWinControl继承链中的任意某某了…
             …
End;
全文完;