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

2023-11-23 19:48

本文主要是介绍VCL框架学习之:如何将Windows消息与控件事件挂接起来,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

//①从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;
全文完;
 

这篇关于VCL框架学习之:如何将Windows消息与控件事件挂接起来的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/420308

相关文章

HarmonyOS学习(七)——UI(五)常用布局总结

自适应布局 1.1、线性布局(LinearLayout) 通过线性容器Row和Column实现线性布局。Column容器内的子组件按照垂直方向排列,Row组件中的子组件按照水平方向排列。 属性说明space通过space参数设置主轴上子组件的间距,达到各子组件在排列上的等间距效果alignItems设置子组件在交叉轴上的对齐方式,且在各类尺寸屏幕上表现一致,其中交叉轴为垂直时,取值为Vert

Ilya-AI分享的他在OpenAI学习到的15个提示工程技巧

Ilya(不是本人,claude AI)在社交媒体上分享了他在OpenAI学习到的15个Prompt撰写技巧。 以下是详细的内容: 提示精确化:在编写提示时,力求表达清晰准确。清楚地阐述任务需求和概念定义至关重要。例:不用"分析文本",而用"判断这段话的情感倾向:积极、消极还是中性"。 快速迭代:善于快速连续调整提示。熟练的提示工程师能够灵活地进行多轮优化。例:从"总结文章"到"用

【前端学习】AntV G6-08 深入图形与图形分组、自定义节点、节点动画(下)

【课程链接】 AntV G6:深入图形与图形分组、自定义节点、节点动画(下)_哔哩哔哩_bilibili 本章十吾老师讲解了一个复杂的自定义节点中,应该怎样去计算和绘制图形,如何给一个图形制作不间断的动画,以及在鼠标事件之后产生动画。(有点难,需要好好理解) <!DOCTYPE html><html><head><meta charset="UTF-8"><title>06

学习hash总结

2014/1/29/   最近刚开始学hash,名字很陌生,但是hash的思想却很熟悉,以前早就做过此类的题,但是不知道这就是hash思想而已,说白了hash就是一个映射,往往灵活利用数组的下标来实现算法,hash的作用:1、判重;2、统计次数;

禁止平板,iPad长按弹出默认菜单事件

通过监控按下抬起时间差来禁止弹出事件,把以下代码写在要禁止的页面的页面加载事件里面即可     var date;document.addEventListener('touchstart', event => {date = new Date().getTime();});document.addEventListener('touchend', event => {if (new

MySQL数据库宕机,启动不起来,教你一招搞定!

作者介绍:老苏,10余年DBA工作运维经验,擅长Oracle、MySQL、PG、Mongodb数据库运维(如安装迁移,性能优化、故障应急处理等)公众号:老苏畅谈运维欢迎关注本人公众号,更多精彩与您分享。 MySQL数据库宕机,数据页损坏问题,启动不起来,该如何排查和解决,本文将为你说明具体的排查过程。 查看MySQL error日志 查看 MySQL error日志,排查哪个表(表空间

零基础学习Redis(10) -- zset类型命令使用

zset是有序集合,内部除了存储元素外,还会存储一个score,存储在zset中的元素会按照score的大小升序排列,不同元素的score可以重复,score相同的元素会按照元素的字典序排列。 1. zset常用命令 1.1 zadd  zadd key [NX | XX] [GT | LT]   [CH] [INCR] score member [score member ...]

【机器学习】高斯过程的基本概念和应用领域以及在python中的实例

引言 高斯过程(Gaussian Process,简称GP)是一种概率模型,用于描述一组随机变量的联合概率分布,其中任何一个有限维度的子集都具有高斯分布 文章目录 引言一、高斯过程1.1 基本定义1.1.1 随机过程1.1.2 高斯分布 1.2 高斯过程的特性1.2.1 联合高斯性1.2.2 均值函数1.2.3 协方差函数(或核函数) 1.3 核函数1.4 高斯过程回归(Gauss

【学习笔记】 陈强-机器学习-Python-Ch15 人工神经网络(1)sklearn

系列文章目录 监督学习:参数方法 【学习笔记】 陈强-机器学习-Python-Ch4 线性回归 【学习笔记】 陈强-机器学习-Python-Ch5 逻辑回归 【课后题练习】 陈强-机器学习-Python-Ch5 逻辑回归(SAheart.csv) 【学习笔记】 陈强-机器学习-Python-Ch6 多项逻辑回归 【学习笔记 及 课后题练习】 陈强-机器学习-Python-Ch7 判别分析 【学

系统架构师考试学习笔记第三篇——架构设计高级知识(20)通信系统架构设计理论与实践

本章知识考点:         第20课时主要学习通信系统架构设计的理论和工作中的实践。根据新版考试大纲,本课时知识点会涉及案例分析题(25分),而在历年考试中,案例题对该部分内容的考查并不多,虽在综合知识选择题目中经常考查,但分值也不高。本课时内容侧重于对知识点的记忆和理解,按照以往的出题规律,通信系统架构设计基础知识点多来源于教材内的基础网络设备、网络架构和教材外最新时事热点技术。本课时知识