Delphi对于控件的SuperClassing（封装并扩展Button，使之变成TButton）

写博客写了这么久，但是一直不知道应该怎么样写函数之间的调用关系和执行顺序，因为不停的跳来跳去的，但是写的时候却只能顺序写调用关系，直到今天发现这种写法很不错：

TButton创建窗口是在CreateWnd方法开始，下面是创建的一个大概流程：
TButton.CreateWnd;
| TWinControl.CreateWnd;
| | TButton.CreateParams(var Params: TCreateParams);
| | | TButtonControl.CreateParams(var Params: TCreateParams);
| | | | TWinControl.CreateParams(var Params: TCreateParams);
| | | TWinControl.CreateSubClass(var Params: TCreateParams; ControlClassName: PChar);
| | Windows.RegisterClass(WindowClass)
| | TWinControl.CreateWindowHandle(const Params: TCreateParams);

当然这篇文章总体内容也是很不错，学习记录之。
------------------------------------------------------------------------------------
第零步，问题的提出：
Windows内部预定义了一些通用的控件，我们在用这些控件的时候不必再调用RegisterClass注册一个窗口类，只要直接调用CreateWindow，并指定一个预定义的窗口类就可以，比如，我们要创建一个Button，只要用如下形式即可：
CreateWindow(.., ‘BUTTON’,...)。
但用Delphi写出来的程序，用SPY看它的某个控件的窗口类名，却是这个控件类的ClassName，比如，一个按钮控件，它的窗口类名是TButton，TButton控件也是封装系统预定义的BUTTON控件，按理它的窗口类名应该是BUTTON才对啊，怎么会变成TButton呢。这个问题长期困扰着我。
昨晚看了一下《Window 95程序设计指南》，其中讲到了Superclassing的技术，可以以系统标准控件为基础，设计新的控件。这个技术使我恍然大悟，赶紧看了一下VCL的代码，果然是用了这样的技术，大喜，以此文记之。

第一步，窗口的总体创建过程：
我以一个TButton控件的创建过程，说明Superclassing技术在Delphi控件创建的应用。
TButton创建窗口是在CreateWnd方法开始，下面是创建的一个大概流程：
TButton.CreateWnd;
| TWinControl.CreateWnd;
| | TButton.CreateParams(var Params: TCreateParams);
| | | TButtonControl.CreateParams(var Params: TCreateParams);
| | | | TWinControl.CreateParams(var Params: TCreateParams);
| | | TWinControl.CreateSubClass(var Params: TCreateParams; ControlClassName: PChar);
| | Windows.RegisterClass(WindowClass)
| | TWinControl.CreateWindowHandle(const Params: TCreateParams);

第二步，设置新类名
在TWinControl.CreateParams(var Params: TCreateParams)中设定了窗口的一些基本的风格，其中有一句重要，是：
with Params do
begin
StrPCopy(WinClassName, ClassName);
end;
里面的WinClassName即是窗口类名，这时被赋为控件的类名，即是TButton。
TButton覆盖CreateParams，作一些自己的风格设置，其中调用到TWinControl的CreateSubClass，是这样调用的：
CreateSubClass(Params, 'BUTTON');
BUTTON就是系统的预定义按钮控件的窗口类名。那么这个方法有什么作用呢，它在里面调用了数个GetClassInfo函数，以获得该窗口类的类风格，类风格填充到Params参数的WindowClass结构成员中。这时WindowClass这个结构就有了BUTTON标准窗口的类风格的数据了。

第三步，设置窗口函数
设置完窗口类的风格后，回到TWinControl的CreateWnd方法，打开这个方法的代码来看，有一句非常重要：
FDefWndProc := WindowClass.lpfnWndProc;
因为我们前面已经调用了CreateSubClass获得了BUTTON的窗口类的类风格，并填充在Params参数的WindowClass结构中。所以上面我们看到的这一句是将BUTTON的窗口过程保存到FDefWndProc这个函数指针里面，它是TWinControl的一个成员，请记住这个成员。
接下来调用：
ClassRegistered := GetClassInfo(WindowClass.hInstance, WinClassName, TempClass);
还记得WinClassName吗，是它是Params的成员，在上面它已经被为’TButton’了。检查有这个名字的窗口类是否已经被注册了，如果没有则有下面三句非常重要的代码：
WindowClass.lpfnWndProc := @InitWndProc;
WindowClass.lpszClassName := WinClassName;
if Windows.RegisterClass(WindowClass) = 0 then RaiseLastOSError;
首先将BUTTON窗口的窗口过程设定为InitWndProc。再将它的窗口类名字设定为WinClassName也即是TButton。最后注册窗口类。
好了窗口类注册完了，就调用以下两句：
CreateWindowHandle(Params);
CreateWindowHandle根据Params里面的参数创建窗口，代码比较简单。

第四步，TWinControl的消息最后会流到TWinControl.DefaultHandle并调用Button原先的默认窗口函数
这一个TButton的创建过程就完了，那么它是如何享有系统预定义的BUTTON的那些功能的呢。接着往下看。
当在CreateWindowHandle里面调用CreateWindow函数时，系统直接发送一个WM_CREATE消息给这个新建的窗口。而上面我们已经知道这个窗口的窗口函数就是InitWndProc。在它里面调用了：
SetWindowLong(HWindow, GWL_WNDPROC, Longint(CreationControl.FObjectInstance));
将窗口过程重新指定，关于这个技术李维的《Inside VCL》已经有说明。反正窗口过程最后就到了TWinControl的WndProc这个方法去了，以后所有的消息将由这个方法来处理。那就看看这个方法吧：
TWinControl.WndProc这个方法没有看到什么信息，不过它会调用父类的WndProc，再看看TControl.WndProc; 里面最终调用了TObject的Dispatch(Message)，将消息通过DMT发送到对应的消息处理方法中，最后还会调用TObject的DefaultHandler。TContorl覆盖了这个方法，而TWinControl也覆盖了这个方法。不过TControl没有我们要的信息。关键就是TWinControl的DefaultHandle。在里面终于找到最最重要的这一句：
Result := CallWindowProc(FDefWndProc, FHandle, Msg, WParam, LParam);
还记得FDefWndProc吗，在上面，它被指向了BUTTON类的原始窗口过程。这里调用了它，亦即Windows在内部会自动对TButton的一些BUTTON特性进行处理。

至此Superclassing完成。而我们也看到BUTTON控件变成了TButton控件。呵呵，如果看一下那本《Window 95程序设计指南》，再看一下VCL源码，相信会理解得更清楚。

总结：
系统内置了对Button的消息，只要能把消息送入WINAPI的DefWindowProc函数（Delphi的类属性FDefWndProc封装了它的地址）里去，就能得到正确的处理。查看TButton源码可以发现TButton对Button原有的消息处理绝大多数都没有拦截，以期消息得到正常处理并得到系统内置的功能，而只拦截了一个WM_ERASEBKGND消息，外加若干CM_和CN_消息用来与VCL框架匹配或者增强TButton的功能。同时类名也被改成了TButton。就整个过程来说，相当于TButton类包含了Button类的所有功能，并有一定的扩展，因此叫做SuperClassing。不过封装的时候却调用了CreateSubClass函数，这个函数名称是不是有点讽刺意味。。。

------------------------------------------------------------------------------------
参考：
http://blog.csdn.net/linzhengqun/article/details/529300