Delphi对于控件的SuperClassing

Windows内部预定义了一些通用的控件,我们在用这些控件的时候不必再调用RegisterClass注册一个窗口类,只要直接调用CreateWindows,并指定一个预定义的窗口类就可以,比如,我们要创建一个Button,只要用如下形式即可:

CreateWindows(.., ‘BUTTON’,...)

但用Delphi写出来的程序,用SPY看它的某个控件的窗口类名,却是这个控件类的ClassName,比如,一个按钮控件,它的窗口类名是TButtonTButton控件也是封装系统预定义的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,作一些自己的风格设置,其中调用到TWinControlCreateSubClass,是这样调用的:

CreateSubClass(Params, 'BUTTON');

BUTTON就是系统的预定义按钮控件的窗口类名。那么这个方法有什么作用呢,它在里面调用了数个GetClassInfo函数,以获得该窗口类的类风格,类风格填充到Params参数的WindowClass结构成员中。这时WindowClass这个结构就有了BUTTON标准窗口的类风格的数据了。

设置完窗口类的风格后,回到TWinControlCreateWnd方法,打开这个方法的代码来看,有一句非常重要:

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里面的参数创建窗口,代码比较简单。

 

 

这一个TButton的创建过程就完了,那么它是如何享有系统预定义的BUTTON的那些功能的呢。接着往下看。

当在CreateWindowHandle里面调用CreateWindow函数时,系统直接发送一个WM_CREATE消息给这个新建的窗口。而上面我们已经知道这个窗口的窗口函数就是InitWndProc。在它里面调用了:

SetWindowLong(HWindow, GWL_WNDPROC,

  Longint(CreationControl.FObjectInstance));

将窗口过程重新指定,关于这个技术李维的《Inside VCL》已经有说明。返正窗口过程最后就到了TWinControlWndProc这个方法去了,以后所有的消息将由这个方法来处理。

 

 

那就看看这个方法吧:

TWinControl.WndProc这个方法没有看到什么信息,不过它会调用父类的WndProc,再看看TControl.WndProc; 里面最终调用了TObjectDispatch(Message),将消息通过DMT发送到对应的消息处理方法中,最后还会调用TObjectDefaultHandlerTContorl覆盖了这个方法,而TWinControl也覆盖了这个方法。不过TControl没有我们要的信息。关键就是TWinControlDefaultHandle。在里面终于找到最最重要的这一句:

Result := CallWindowProc(FDefWndProc, FHandle, Msg, WParam, LParam);

还记得FDefWndProc吗,在上面,它被指向了BUTTON类的原始窗口过程。这里调用了它,亦即Windows在内部会自动对TButton的一些BUTTON特性进行处理。

 

 

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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值