TWinControl与TControl的覆盖函数（TWinControl对TControl的10个消息覆盖函数，17个覆盖函数，私有虚函数仍可多态）

手工找出来，对比一下，有助于VCL框架的理解。
--------------------------------------------------------------------------------------------

才注意到，所有消息处理函数都是私有的，为什么呢？
问题：其子类会继承它们吗？回答：不能直接继承它们，但不影响子类通过inherite调用，程序员也不能在子类或者外部直接调用它们。详细可以Google一下“虚函数 私有函数”，虽然出来的结果是C++的，而且这里是动态函数，但道理是相同的。
关于私有虚函数的特点，这是我参考别人帖子以后总结的（C++和Java的机制还有所不同，Delphi与C++一致）：
http://www.cnblogs.com/findumars/p/4164736.html

TWinControl对TControl的消息覆盖函数，共10个，其中2个WM消息，8个CM消息：

procedure WMWindowPosChanged(var Message: TWMWindowPosChanged); message WM_WINDOWPOSCHANGED; // 间接调用DefaultHandler 先调整位置，后调整大小
procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU; // 判断是否落在图形控件的区间里，子控件没处理，才轮到自己处理

procedure CMVisibleChanged(var Message: TMessage); message CM_VISIBLECHANGED;
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST;
procedure CMSysFontChanged(var Message: TMessage); message CM_SYSFONTCHANGED;
procedure CMColorChanged(var Message: TMessage); message CM_COLORCHANGED;
procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
procedure CMBiDiModeChanged(var Message: TMessage); message CM_BIDIMODECHANGED;
procedure CMFloat(var Message: TCMFloat); message CM_FLOAT;

TControl对父类的覆盖函数（都是很琐碎的一些基本功能，不需要深刻理解，不过最好笑的是图形控件也有WndProc函数，主要处理鼠标与键盘消息），共12个，分为3类：

// 其中3个是对TObject类函数的覆盖：
constructor Create(AOwner: TComponent); override; // 加入组件，指定WndProc指针，控件属性
destructor Destroy; override; // 把属性Parent赋值nil
procedure DefaultHandler(var Message); override; // 只处理三个处理文字的消息，不再继续传递消息了。TComponent根本没有覆盖它
// 其中2个是对TPersistent类函数的覆盖：
procedure AssignTo(Dest: TPersistent); override; // 根据Action设置五项属性
procedure DefineProperties(Filer: TFiler); override; // 函数内容监督
// 其中7个是对TComponent类函数的覆盖：
procedure ReadState(Reader: TReader); override; // 发送5个组件消息
procedure SetParentComponent(Value: TComponent); override; // 设置父组件
procedure SetName(const Value: TComponentName); override; // 先判断是否允许设置名字
procedure Loaded; override; // 主要处理新增的Action
procedure Notification(AComponent: TComponent; Operation: TOperation); override; // 在删除组建的时候，去掉右键菜单和和Action
function GetParentComponent: TComponent; override; // 直接返回的就是父控件（就是TWinControl），而TComponent的同名方法直接返回Nil指针
function HasParent: Boolean; override; // 简单判断父控件是否为空

TWinControl对父类的覆盖函数，共25个，分为三类：

// 其中6个是对TControl函数的进一步覆盖（源自TObject或者TPersistent或者TComponent函数），属于增强型函数：
constructor Create(AOwner: TComponent); override; // 调用MakeObjectInstance 创建TBrush 创建边条（用不用另说）
destructor Destroy; override; // 先挨个通知子控件，然后移除和销毁所有子控件，最后还归还FObjectInstance的空间
procedure DefaultHandler(var Message); override; // Delphi与生俱来的功能，处理少部分消息（右键菜单，通知消息，传递消息给CallWindowProc API，根据消息找控件RM_GetObjectInstance），最后传递给Windows处理消息
procedure ReadState(Reader: TReader); override; // 读入数据后，全部重整（调整对齐和Tab顺序，重新显示）
procedure AssignTo(Dest: TPersistent); override; // 增加Action的HelpContext（在前面的基础上）
procedure DefineProperties(Filer: TFiler); override; // 重新对齐

// 其中2个是直接对TComponent类函数的覆盖（TControl没有相应的类函数），而TComponent提供的是空函数体：
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; // 如果当前控件的子控件的父控件是root，那么执行函数Proc(子控件)
procedure SetChildOrder(Child: TComponent; Order: Integer); override; // 设置Z顺序（不管这个子控件是图形控件还是TWin控件）

其中最重要的当属对TControl类的覆盖，共17个：

// 消息与事件
procedure WndProc(var Message: TMessage); override; // 虚函数，处理少部分消息（设置焦点，转发鼠标消息给图形控件），如果找不到，则调用父类同名函数
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); override;
function GetActionLinkClass: TControlActionLinkClass; override; // 简单函数，取得类之类

// 客户区
function GetClientOrigin: TPoint; override; // 简单调用API
function GetClientRect: TRect; override;    // 简单调用API
procedure SetZOrder(TopMost: Boolean); override; // 调用API

// 改变大小
procedure AdjustSize; override; // 调用API
function CanAutoSize(var NewWidth, NewHeight: Integer): Boolean; override; // 标识如何重定义尺寸
function CanResize(var NewWidth, NewHeight: Integer): Boolean; override;
procedure ConstrainedResize(var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); override;
procedure ChangeScale(M, D: Integer); override;

// 其中最重要的是对显示函数的处理：
procedure Repaint; override;    // 简单调用虚函数Invalidate和虚函数update，即重画后立即生效。但图形控件没有改写这个函数(它要求父控件重画自己)。对比：它自己就可以声明自己无效并重画，不需要依赖父控件。
procedure Invalidate; override; // 简单发送CM_INVALIDATE消息，先通知所有父控件，看它们有没有需要处理这件事情的，然后再重画自己。这就叫做组件之间的互动。对比：它本身的无效区域不需要计算，全部区域即可。
procedure Update; override;     // 简单调用API UpdateWindow（如果有句柄）。对比：它不再需要一路向上通知父控件，直接更新自己即可。
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; // 调用API设置窗口位置（很正常，图像控件不能靠API来设置）
function PaletteChanged(Foreground: Boolean): Boolean; override;
function GetDeviceContext(var WindowHandle: HWnd): HDC; override; // super 调用API，取得DC，并在可变参数里记下句柄