深入VCL 理解BCB的消息机制(二)

原创 2001年06月16日 02:41:00

 

深入VCL 理解BCB的消息机制

方法2

Written by
CKER

方法2。重载TControl的WndProc方法

还是先谈谈VCL的继承策略。VCL中的继承链的顶部是TObject基类。一切的VCL组件和对象都继承自TObject。

打开BCB帮助查看TControl的继承关系:

TObject->TPersistent->TComponent->TControl

呵呵,原来TControl是从TPersistent类的子类TComponent类继承而来的。TPersistent抽象基类具有使用流stream来存取类的属性的能力。

TComponent类则是所有VCL组件的父类。

这就是所有的VCL组件包括您的自定义组件可以使用dfm文件存取属性的原因『当然要是TPersistent的子类,我想您很少需要直接从TObject类来派生您的自定义组件吧』。

TControl类的重要性并不亚于它的父类们。在BCB的继承关系中,TControl类的是所有VCL可视化组件的父类。实际上就是控件的意思吧。所谓可视化是指您可以在运行期间看到和操纵的控件。这类控件所具有的一些基本属性和方法都在TControl类中进行定义。

TControl的实现在/Borland/CBuilder5/Source/Vcl/control.pas中可以找到。『可能会有朋友问你怎么知道在那里?使用BCB提供的Search -> Find in files很容易找到。或者使用第三方插件的grep功能。』

好了,进入VCL的源码吧。说到这里免不了要抱怨一下Borland。哎,为什么要用pascal实现这一切.....:-(

TControl继承但并没有重写TObject的Dispatch()方法。反而提供了一个新的方法就是xycleo提到的WndProc()。一起来看看Borland的工程师们是怎么写的吧。

看完这段代码,你会发现TControl类实际上只处理了鼠标消息,没有处理的消息最后都转入Dispatch()来处理。

但这里需要强调指出的是TControl自己并没有获得焦点Focus的能力。TControl的子类TWinControl才具有这样的能力。我凭什么这样讲?呵呵,还是打开BCB的帮助。很多朋友抱怨BCB的帮助实在不如VC的MSDN。毋庸讳言,的确差远了。而且这个帮助还经常有问题。但有总比没有好啊。

言归正传,在帮助的The TWinControl Branch 分支下,您可以看到关于TWinControl类的简介。指出TWinControl类是所有窗体类控件的基类。所谓窗体类控件指的是这样一类控件:

1. 可以在程序运行时取得焦点的控件。

2. 其他的控件可以显示数据,但只有窗体类控件才能和用户发生键盘交互。

3. 窗体类控件能够包含其他控件(容器)。

4. 包含其他控件的控件又称做父控件。只有窗体类控件才能够作为其他控件的父控件。

5. 窗体类控件拥有句柄。

除了能够接受焦点之外,TWinControl的一切都跟TControl没什么分别。这一点意味着TwinControl可以对许多的标准事件作出响应,Windows也必须为它分配一个句柄。并且与这个主题相关的最重要的是,这里提到是由BCB负责来对控件进行重画以及消息处理。这就是说,TwinControl封装了这一切。

似乎扯的太远了。但我要提出来的问题是TControl类的WndProc方法中处理了鼠标消息。但这个消息只有它的子类TwinControl才能够得到啊!?

这怎么可以呢... Borland是如何实现这一切的呢?这个问题实在很奥妙。为了看个究竟,再次深入VCL吧。

还是在control.pas中,TWinControl继承了TControl的WndProc方法。源码如下:

鼠标消息是由IsControlMouseMsg方法来处理的。只有再跟到IsControlMouseMsg去看看啦。源码如下:

原来如此,TWinControl最后还是将鼠标消息交给TControl的WndProc来处理了。这里出现的Perform方法在BCB的帮助里可以查到是TControl类中开始出现的方法。它的作用就是将指定的消息传递给TControl的WndProc过程。

结论就是TControl类的WndProc方法的消息是由TwinControl类在其重载的WndProc方法中调用IsControlMouseMsg方法后使用Peform方法传递得到的。

由于这个原因,BCB和Delphi中的TControl类及其所有的派生类都有一个先天的而且是必须的限制。那就是所有的TControl类及其派生类的Owner必须是TwinControl类或者TWinControl的派生类。Owner属性最早可以在TComponent中找到,一个组件或者控件是由它的Owner拥有并负责释放其内存的。这就是说,当Owner从内存中释放的时候,它所拥有的所有控件占用的内存也都被释放了。Owner最好的例子就是Form。Owner同时也负责消息的分派,当Owner接收到消息的时候,它负责将应该传递给其所拥有的控件的消息传递给它们。这样这些控件就能够取得处理消息的能力。TImage就是个例子:你可以发现Borland并没有让TImage重载TControl的WndProc方法,所以TImage也只有处理鼠标消息的能力,而这种能力正是来自TControl的。

唧唧崴崴的说了一大堆。终于可以说处理消息的第二种方法就是重载TControl的WndProc方法了。例程如下:

乍看起来,这和上次讲的重载Dispatch方法好象差不多。但实际上还是有差别的。差别就在先后次序上,从前面TControl的WndProc可以看到,消息是先交给WndProc来处理,最后才调用Dispatch方法的啦。

这样,重载WndProc方法可以比重载Dispatch方法更早一点点得到消息并处理消息。

好了,这次就说到这里。在您的应用程序里还有没有比这更早得到消息的办法呢?有,下次再说。

 

版权说明:
您可以随意复制、分发、下载此文档。但未经本人同意,您不可以截取、改动本文片断,或用本文谋取任何形式的利益。

深入VCL 理解BCB的消息机制 (一)

   
  • cker
  • cker
  • 2001年06月09日 15:53
  • 3255

深入VCL 理解BCB的消息机制(三)

New Page 1
  • cker
  • cker
  • 2001年06月25日 02:29
  • 3950

深入BCB理解VCL的消息机制

深入BCB理解VCL的消息机制引子:本文所谈及的技术内容都来自于Internet的公开信息。由笔者在闲暇之际整理后,贴出来以飴网友,姑且妄称原创。每次在国外网站上找到精彩文章的时候,心中都会暗自叹息,...
  • diligentcat
  • diligentcat
  • 2011年05月26日 10:44
  • 905

深入VCL理解BCB的消息机制2

深入VCL理解BCB的消息机制2 2012-12-25 19:54未知admin . 关键字:   重载TControl的WndProc方法   还是先谈谈VCL的继承策略。VCL中的继承链...
  • ksrsoft
  • ksrsoft
  • 2013年04月09日 15:38
  • 998

深入C++ Builder之编写自己的元件-深入分析VCL继承、消息机制

这篇文章提及内容可能大家已经在很多地方看到过了,作者也是如此,只不过还看了很多VCL源代码,加上自己实际编写元件的经验,拼凑了这么一篇文章。所以所有言论都是个人观点、经验的描述,仅供参考。 你可转载...
  • zb872676223
  • zb872676223
  • 2014年10月27日 23:38
  • 657

找到几篇有关delphi vcl消息机制的文章,收藏先~

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月15日 03:57
  • 250

BCB消息消息机制

方法1:使用消息映射(MessageMap)重载TObject的Dispatch虚成员函数   形式如下:   BEGIN_MESSAGE_MAP    VCL_MESSAGE_HANDLER(...
  • zhangqizeng
  • zhangqizeng
  • 2015年06月23日 10:39
  • 496

SWT深入内幕之消息机制探秘

  • 2007年07月20日 12:52
  • 383KB
  • 下载

从现实生活中理解android 线程消息机制

  • 2011年03月02日 11:53
  • 204KB
  • 下载

[原创]SWT 深入内幕之消息机制探秘

  • 2008年03月07日 15:03
  • 316KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深入VCL 理解BCB的消息机制(二)
举报原因:
原因补充:

(最多只允许输入30个字)