zoukankan      html  css  js  c++  java
  • 李维对VCL理解的几个错误

    研读深入浅出VCL一书的时候,有不少地方被网友提出疑问,而且似乎是网友们正确。但这丝毫不动摇李维在大中华Delphi界的江湖地位,因为高手应该是对整个系统理解的高手,而不是对某一个疑问的高手。能花巨量心思与精力写出如此巨著已经很不可思议,更不用说他还写了许多其它书籍、做了许多其它事情。

    我自己也算仔细研读了一遍VCL,对照李维的巨著学习之外,仍有自己的不少心得,我也会慢慢写在这里,一个世界级的Windows平台编程基础库,实在是太难太庞大了,以至于李维也无法面面俱到。但是有一点对Delphi的哲学思想必须领会:工程师就是用最简便的方法解决问题、达到目的,并且还要解决工程中所遇到的每一个问题的细节,而且还经常得是不偏不倚的解决方案,而不能是太过于私有的技巧。闲话少说:

    1. TControl的Parent必须是TWinControl

    《深入BCB理解VCL的消息机制》一文里提到:鼠标消息是由IsControlMouseMsg方法来处理的。只有再跟到IsControlMouseMsg去看看啦。源码如下:

    function TWinControl.IsControlMouseMsg(var Message: TWMMouse): Boolean;
    var
    //TControl出现啦
    Control: TControl;
    P: TPoint;
    begin
    if GetCapture = Handle then
    begin
    Control := nil;
    if (CaptureControl <> nil) and (CaptureControl.Parent = Self) then
    Control := CaptureControl;
    end else
    Control := ControlAtPos(SmallPointToPoint(Message.Pos), False);
    Result := False;
    if Control <> nil then
    begin
    P.X := Message.XPos - Control.Left;
    P.Y := Message.YPos - Control.Top;
    file://TControl的Perform方法将消息交由WndProc 处理。
    Message.Result := Control.Perform(Message.Msg, Message.Keys,
    Longint(PointToSmallPoint(P)));
    Result := True;
    end;
    end;


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

  • 相关阅读:
    14.9 InnoDB Disk IO and File Space Management InnoDB Disk 和文件空间管理
    haproxy web通过根跳转
    Linux_NIS+NFS+Autofs
    Linux_NIS+NFS+Autofs
    haproxy 配置心跳检查
    14.8.2 Specifying the Row Format for a Table 指定表的Row Format
    14.8.1 Overview of InnoDB Row Storage
    HTML5新增表单之color
    perl vim美化
    14.7.1 Enabling File Formats
  • 原文地址:https://www.cnblogs.com/findumars/p/3821255.html
Copyright © 2011-2022 走看看