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

深入VCL理解BCB的消息机制22008-01-05重载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的实现在BorlandCBuilder5SourceVclcontrol.pas中可以找到。『可能会有朋友问你怎么知道在那里？使用BCB提供的Search -> Find in files很容易找到。或者使用第三方插件的grep功能。』

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

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

procedure TControl.WndProc（var Message: TMessage）;
var
  Form: TCustomForm;
begin
//由拥有control的窗体来处理设计期间的消息
  if （csDesigning in ComponentState） then
  begin
   Form := GetParentForm（Self）;
   if （Form <> nil） and （Form.Designer <> nil） and
    Form.Designer.IsDesignMsg（Self, Message） then Exit;
  end
//如果需要，键盘消息交由拥有control的窗体来处理
  else if （Message.Msg >= WM_KEYFIRST） and （Message.Msg <= WM_KEYLAST） then
  begin
   Form := GetParentForm（Self）;
   if （Form <> nil） and Form.WantChildKey（Self, Message） then Exit;
  end
//处理鼠标消息
  else if （Message.Msg >= WM_MOUSEFIRST） and （Message.Msg <= WM_MOUSELAST） then
  begin
   if not （csDoubleClicks in ControlStyle） then
    case Message.Msg of
     WM_LBUTTONDBLCLK, WM_RBUTTONDBLCLK, WM_MBUTTONDBLCLK:
      Dec（Message.Msg, WM_LBUTTONDBLCLK - WM_LBUTTONDOWN）;
    end;
   case Message.Msg of
    WM_MOUSEMOVE: Application.HintMouseMessage（Self, Message）;
    WM_LBUTTONDOWN, WM_LBUTTONDBLCLK:
     begin
      if FDragMode = dmAutomatic then
      begin
       BeginAutoDrag;
       Exit;
      end;
      Include（FControlState, csLButtonDown）;
     end;
    WM_LBUTTONUP:
     Exclude（FControlState, csLButtonDown）;
   end;
  end
// 下面一行有点特别。如果您仔细的话会看到这个消息是CM_VISIBLECHANGED.
// 而不是我们熟悉的WM_开头的标准Windows消息.
// 尽管Borland没有在它的帮助中提到有这一类的CM消息存在。但很显然这是BCB的
// 自定义消息。呵呵，如果您对此有兴趣可以在VCL源码中查找相关的内容。一定会有不小的收获。
  else if Message.Msg = CM_VISIBLECHANGED then
   with Message do
    SendDockNotification（Msg, WParam, LParam）;
// 最后调用dispatch方法。
  Dispatch（Message）;
end;