Delphi的消息机制浅探.doc

Delphi的消息机制浅探 savetime2k@yahoo. com 2004.1.9 我从去年12月上旬开始等待李维的《Inside VCLk我当时的计划是，在这本书的指导下深 入学习Delphic到了 12月底，书还没有出来，我不愿再等，开始阅读VCL源代码。在读 完TObject TPersistant和TComponent的代码之后,我发现还是不清楚Delphi对象到 底是怎样被创建的。于是我查看Delphi牛成的汇编代码，终于理解了对彖创建的整个过程 （这里要特别感谢book523的帮助）。 此后我就开始学习Delphi VCL的消息处理机制。口从我写下《Delphi的对象机制浅探》， 至今正好一个星期，我也基本上把Delphi VCL的消息处理框架读完了。我的学习方法就是 阅读源代码，一开始比较艰苦，后来线索逐渐清晰起來。在此把口己対Delphi VCL消息机 制的理解记录下来，便于今后的复习，也给初学Delphi或没有时间阅读VCL源代码的朋友 参考（毕竞没有儿个程序员像我这样有时间：）。由于学习时间较短，一定会有错课，请人家 指正。 我在分析VCL消息机制的过程中，基本上只考查了三个类TObject、TControl和 TWinControlo虽然我没有阅读上层类（如TForm）的代码，但我认为这些都是实现的细节。我 相信VCL消息系统中最关键的东西都在这三个类中。纲举而1=1张，掌握基础类的消息处理方 法之后再读其他类的消息处理过程就容易得多了。 要想读懂本文，最低配置为： 了解Win32消息循环和窗口过程 基本了解 TObject TControl 和 TWinControl 实现的内容 熟悉Delphi对象的垂载与多态 推荐配置为： 熟悉Win32 SDK编程 熟悉Delphi的对象机制 熟悉Delphi内嵌汇编语言 推荐阅读： 《Delphi的原子世界》 HYPERLINK http:///vwwhttp://\vww. codelphi. com/ 《VCL窗口函数注册机制研究手记，兼与MFC比较》 http://www. delphibbs. com/delphibbs/dispq. asp?lid=584889 《Delphi的对象机制浅探》 http://www. delphibbs. com/delphibbs/di spq. asp?LTD=2390131 本文排版格式为： 正文由窗口自动换行；所有代码以80字符为边界；中英文字符以空格符分隔。 (作者保留对木文的所有权利，未经作者同意请勿在在任何公共媒体转载。) O 一个GUI Application的执行过程:消息循环的建立 O TWinControl. Create^注册窗口过程和创建窗口 O补充知识：TWndMethod概述 0 VCL 的消息处理从 TWinControl. MainWndProc 开始 0 TWinControl. WndProc O TControl. WndProc O TObject. Dispatch O TWinControl. DefaultHandler 0 TControl. Perform 和 TWinControl. Broadcast 0 TWinControl. WMPaint O以TWinControl为例描述消息传递的路径 TE文 O 一个GUI Appl ication的执行过程:消息循环的建立 通常一个Win32 GUI应用程序是围绕着消息循环的处理而运行的。在一个标准的C语言 Win32 GUI程序中，主程序段都会出现以下代码： while (GetMessage(msg, NULL, 0, 0)) // GetMessage 第二个参数为 NULL, //表示接收所有应用程序产生的窗口消息 { TranslateMessage(msg) ; //转换消息中的字符集 Di spatchMessage (msg); 〃把 msg 参数传递给 1 pfnWndProc } lpfnWndProc是Win32 API定义的回调函数的地址，其原型如下: int stdcall WndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM 1Param); Windows回调函数(cal lback function)也通常被称为窗口过程(window procedure),本文 随意使用这两个名称，代表同样的意义。 应用程序使用GetMessage不断检查应用程序的消息队列中是否冇消息到达。如果发现了消 息，则调用TranslateMessageo TranslateMessage主要是做宁符消息本地化的工作，不是 关键的函数。然厉调用 Di