VCL框架学习之:从传统WindowsAPI到面向对象的消息分派实现

本文主要是介绍VCL框架学习之:从传统WindowsAPI到面向对象的消息分派实现,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

/*传统Windows消息机制*/
//创建一个Windows窗口,在其中创建Edit控件:
Function WindowProc(Window:HWnd;AMessage:UINT;Wparam:WPARAM;Lparam:LPARAM):LRESULT;stdcall;export;
Begin
                    //仅有一个窗口回调函数(即当前函数)处理所有消息(窗体消息或Eidt控件消息)
                    //消息回环
                    Case AMessage Of:
                    Case xxx:
                    Case xxx:
                    End ;
                    //无法处置的消息交由默认处理方法处理
                    WindowProc:= DefWindowProc(window,Amessage,Wparam,Lparam);
                    //创建Eidt控件时以包含Eidt控件的Handle作为父窗体参数
                    HWindow := WinCreate;
                    Hedi := EditCreate(HWindow,Hstatus);
                    SetFocus(Hedit);
                    While GetMessage(@AMessage,0,0,0) Do
                    Begin
                      //继续下一轮的消息分发
                    TranslateMessage(AMessage);
                    DispatchMessage(AMessage);
                    End;
End;
Function EditCreate(ParentWindow,Status:HWnd):HWnd;
Begin
                    //绘制一个Eidt
End;
/*面对对象消息机制*/
//继承层次:
TObject
TWinControl.WndProc(var Message:TMessage);Virtual;
TEdit.WndProc(var Message:TMessage);Override;
//分发机制:
Var 
                    aControl:TWinControl;
Begin
                    …
                    GetWindowMessage(Message);
                    aControl : = GetTargetControl(Message);
                    aControl.WndProc(Message);
                    …
End;
/*从窗口回调函数到面向对象的类方法*/
Function WindowProc(…)//开放此函数被Windows操作系统调用
Var
                    …
Begin
                    …
                    Control := FindControl(ControlHandle);
                    Push EAX,Self //将对象地址推入堆栈
                    Control.WndProc(Message);//调用消息处理方法
                     …
End;
/*如何实现消息分派服务*/
TObject = class
                    …
                    Procedure Dispatch(var Message);virtual;//消息分派
                    Procedure DefaultHandler(var Message);virtual;
                    …
End;
/*从Application.Run说起*/
Application.Initialize;①
Application.CreateForm(TForm,Form1);②
Application.Run;③
①应用程序启动时将会调用如下代码:
Application := Application.Create(nil);

//类型声明
TApplication = class(TComponent)
Var 
                    Private
                     …
                    FHandle:HWnd; 
                    ..
                    FObjectInstance:Pointer;
End;
//构造函数
Constructor TApplication.Create(AOwner:TComponet);
Var 
                    If not IsLibrary then CreateHandle;
End ;
Procedure TApplication.CreateHandle;
Var

 Begin
                    …
                    //获得WndProc地址
                    FobjectInstance := Classes.MakeObjectInstance(WndProc);
                    //创建一个大小为0的隐藏窗口
                    FHandle:=CreateWindow(….);
                    …
                    //重新设定窗口回调函数为指定地址
                    SetWindowLong(FHandle,GWL_WNDPROC,Longint(FObjectInstance));
                    …
                    //WndProc成为隐藏窗口的默认回调函数
End ;
Procedure TApplication.WndProc(var Message:TMessage);
Var
Begin
                     …
                     //消息回环
                     With Message do
                     Case Msg of 
                      …
                      WM_CLOSE:
                      //控制主窗体的关闭
                       If MainForm <> nil then MainForm.Close;
                      …
                      CM_ACTIVATE:
                       //与事件响应挂接
                      If Assigned(FOnActiveate) then FOnActivete(Self);
                      …
                     End; 
                     …
End;
③应用程序启动后
Procedure TApplication.Run
                     …
                     Repeat
                      HandleMessage;//完成消息分发
                      … 
                     End;
End;
Procedure TApplication.HandleMessage;
                     …
                     ProcessMessage(Msg)
                     …
End ;
Procedure TApplication.ProcessMessage(var Msg:TMsg):Boolean;
 Var
                     …
 Begin
                      …
                      If Assigned(FOnMessage) then FOnMessage(Msg,Hanled);
                      …
                      Begin
                       //消息分发
                       TranslateMessage(Msg);
                       DispatchMessage(Msg);
                      End ;
                      …
End;
②应用程序创建Form
Procedure TApplication.CreateForm(InstanceClass:TComponentClass;var Reference);
Var
                     Instance:TComponent
Begin
                     Instance := TComponent(InstanceClass.NewInstance);
                     TComponent(Reference) := Instance;
                     ..
                     Instance.Create(Self);
                     //创建新对象,尚未创建实际的窗口控件
                     Instance.Create(Self);④
                     …
                     If (FMainForm = nil) and( Instance is TForm) then
                     Begin
                      //暗示开始调用Window API 创建窗口并取得窗口的Handle值
                      TForm(Instance).HandleNeeded;
                      FMainForm := TForm(Instance);
                     End;
                     …
End;
由④导出的事件
//由TForm到TWincontrol继承链条引发TWinControl.Create调用
Constructor TWinControl.Create(AOwner:TComponent);
Begin
                     Inherited Create(AOwner);//父类构造调用
                     …
                     //获得回调函数MainWndProc入口地址
                     FObjectInstance:=Classes.MakeObjectInstance(MainWndProc); 
                     …
End ;
//继续Procedure TApplication.CreateForm的讨论:
Procedure TWinControl.HandleNeeded;
Begin
                     …
                     CreateHandle;
                     …
End;
Procedure TWinControl.CreateHandle;//virtual
Begin
                     …
                     CreateWnd; 
                     …
End;
Procedure TWincontrol.CreateWnd;//virtual
Begin
                     …
                     //属性设置
                     CreateParams(Params);// virtual,可由继承重写实现窗口属性自定义
                     …
                     WindowClass.lpszClassName := @InitWndProc;//将InitWndProc设置为窗体创建的窗口控件的回调函数
                     …
                     //根据设定的窗口类信息调用API来创建窗体封装的窗口控件
                     CreateWindowHandle(Params);
                     …
End;
Procedure TWinControl.CreateWindowHandle(const Params:TCreateParams)
Begin
                     …
                     With Params do
                     FHandle := CreateWindowEx(……);//调用API创建窗口
End ;
Function InitWndPro(HWindow:Hwnd;….) //让Windows操作系统能够调用到Framework中处理窗口消息的类方法的轴心函数
Begin
                     …
                     CreationControl.FHandle := HWindow;
                     // CreationControl已被自动设置为当前正在创建的控件,也正是窗口消息的目的控件
                     //重新设置MainWndPro为窗体的回调函数
                     SetWindowLong(HWindow,GWL_WNDPROC,Longint(CreationControl.FObjectInstance));
                     …
                     Asm:
                      PUSH LParam
                      PUSH WParam
                      PUSH Message
                      PUSH HWindow
                      MOV EXA,CreationControl //将处理窗口消息的控件推入栈中
                      MOV CreationControl,0
                      CALL [EAX].TWinControl.FObjectInstance //调用该控件的窗口回调函数
                      MOV Result,EAX
                     End ;
End ;
Procedure TWinControl.MainWndProc(var Message:TMessage)
Begin
                     WindowProc(Message);//在TControl.Create中WindowProc被指定成为类成员方法WndProc
                     …
End;
Procedure TWinControl.WndProc(var Message:TMessage)
Begin
                     …
                     Inherited WndProc(Message);
End;
Procedure TControl.WndProc(var Message:TMessage)
Begin
                     …
                     //消息处理
                     …
                     //消息分派
                     Dispatch(Message);
End;
 

这篇关于VCL框架学习之:从传统WindowsAPI到面向对象的消息分派实现的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



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

相关文章

Java实现字节字符转bcd编码

《Java实现字节字符转bcd编码》BCD是一种将十进制数字编码为二进制的表示方式,常用于数字显示和存储,本文将介绍如何在Java中实现字节字符转BCD码的过程,需要的小伙伴可以了解下... 目录前言BCD码是什么Java实现字节转bcd编码方法补充总结前言BCD码(Binary-Coded Decima

SpringBoot全局域名替换的实现

《SpringBoot全局域名替换的实现》本文主要介绍了SpringBoot全局域名替换的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一... 目录 项目结构⚙️ 配置文件application.yml️ 配置类AppProperties.Ja

Python实现批量CSV转Excel的高性能处理方案

《Python实现批量CSV转Excel的高性能处理方案》在日常办公中,我们经常需要将CSV格式的数据转换为Excel文件,本文将介绍一个基于Python的高性能解决方案,感兴趣的小伙伴可以跟随小编一... 目录一、场景需求二、技术方案三、核心代码四、批量处理方案五、性能优化六、使用示例完整代码七、小结一、

Java实现将HTML文件与字符串转换为图片

《Java实现将HTML文件与字符串转换为图片》在Java开发中,我们经常会遇到将HTML内容转换为图片的需求,本文小编就来和大家详细讲讲如何使用FreeSpire.DocforJava库来实现这一功... 目录前言核心实现:html 转图片完整代码场景 1:转换本地 HTML 文件为图片场景 2:转换 H

C#使用Spire.Doc for .NET实现HTML转Word的高效方案

《C#使用Spire.Docfor.NET实现HTML转Word的高效方案》在Web开发中,HTML内容的生成与处理是高频需求,然而,当用户需要将HTML页面或动态生成的HTML字符串转换为Wor... 目录引言一、html转Word的典型场景与挑战二、用 Spire.Doc 实现 HTML 转 Word1

C#实现一键批量合并PDF文档

《C#实现一键批量合并PDF文档》这篇文章主要为大家详细介绍了如何使用C#实现一键批量合并PDF文档功能,文中的示例代码简洁易懂,感兴趣的小伙伴可以跟随小编一起学习一下... 目录前言效果展示功能实现1、添加文件2、文件分组(书签)3、定义页码范围4、自定义显示5、定义页面尺寸6、PDF批量合并7、其他方法

SpringBoot实现不同接口指定上传文件大小的具体步骤

《SpringBoot实现不同接口指定上传文件大小的具体步骤》:本文主要介绍在SpringBoot中通过自定义注解、AOP拦截和配置文件实现不同接口上传文件大小限制的方法,强调需设置全局阈值远大于... 目录一  springboot实现不同接口指定文件大小1.1 思路说明1.2 工程启动说明二 具体实施2

Python实现精确小数计算的完全指南

《Python实现精确小数计算的完全指南》在金融计算、科学实验和工程领域,浮点数精度问题一直是开发者面临的重大挑战,本文将深入解析Python精确小数计算技术体系,感兴趣的小伙伴可以了解一下... 目录引言:小数精度问题的核心挑战一、浮点数精度问题分析1.1 浮点数精度陷阱1.2 浮点数误差来源二、基础解决

Java实现在Word文档中添加文本水印和图片水印的操作指南

《Java实现在Word文档中添加文本水印和图片水印的操作指南》在当今数字时代,文档的自动化处理与安全防护变得尤为重要,无论是为了保护版权、推广品牌,还是为了在文档中加入特定的标识,为Word文档添加... 目录引言Spire.Doc for Java:高效Word文档处理的利器代码实战:使用Java为Wo

Java实现远程执行Shell指令

《Java实现远程执行Shell指令》文章介绍使用JSch在SpringBoot项目中实现远程Shell操作,涵盖环境配置、依赖引入及工具类编写,详解分号和双与号执行多指令的区别... 目录软硬件环境说明编写执行Shell指令的工具类总结jsch(Java Secure Channel)是SSH2的一个纯J