Delphi对于控件的SuperClassing

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

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

Delphi对于控件的SuperClassing

上一篇:Knockout : 实现复杂的web聊天窗体


下一篇:WPF中关于ListBox的样式定制