Programming 版 (精华区)

发信人: zhangyan (今朝有水今朝灌), 信区: Programming
标  题: Iczelion Win32汇编教程(18)
发信站: 哈工大紫丁香 (2001年02月14日16:25:43 星期三), 站内信件

第十八课 窗口子类化
----------------------------------------------------------------------------
----
在这一讲，我们将学习什么是窗口子类化和怎样按你所想要的方式方便地使用它。
理论：
如果你曾经在 Windows 环境下编过程序，有时候就会发现：有一个现成的窗口，几乎有
你所需要的全部功能，但还不完全一样（否则就没有必要讲这一节了）。你曾遇到过这
样的处境吗，如果你需要一个具有过滤特殊字符功能的 Edit 控件。当然最直接的方法
就是自己用代码来实现，但这的确是一个费时又很困难的任务，而窗口子类化就可以用
来做这种事情。
窗口子类化允许你接管被子类化的窗口，使你对它有绝对的控制权。举个例子了来阐明
一下：例如你需要一个只接受十六进制数字输入的文本编辑框，如果使用一个简单的 E
dit控件，当用户输入十六进制以外的字符时，你既不知道也无计可施。也就是说，当用
户进文本框中输入字符串 "zb+q*" 时，如果除了拒绝接受整个字符串以外几乎什么也不
能做，至少这显得特别不专业。重要的是，你需要具有输入检测的能力，即每当用户输
入一个字符到编辑框中时要能检测这个字符。
现在来解释实现细节：当用户往文本框中输入字符时，Windows 会给Edit控件的窗口函
数发送 WM_CHAR 消息。这个窗口函数本身寄生于 Windows 中，因此不能直接修改它。
但是我们可以重定向这个消息使之发送到我们自己编写的窗口处理函数。如果自定义窗
口要处理这个消息那就可以处理它，如果不处理就可以把这个消息转发到它原来窗口处
理函数。通过这种方式，自定义的窗口处理函数就把它自己插入到 Windows 系统和 Ed
it 控件之间。
看下面的流程：
窗口子类化之前
Windows ==>Edit 控件的窗口处理函数。
子类化之后
Windows ==>自定义的窗口处理函数==> Edit 控件的窗口处理函数。
注意子类化并不局限于控件，可以子类化任何窗口，现在我们要把精力集中到怎样实现
子类化一个窗口上。让我们想想Windows 怎样知道 Edit 控件的窗口处理函数放在什么
地方。猜的？…肯定不是。原来 WNDCLASSEX 结构的成员 lpfnWndProc 指出了窗口函数
地址。如果能用自己编写的窗口函数的地址来替换这个成员变量，那 Windows 不就把消
息发到自定义的窗口函数了吗! 我们通过调用函数SetWindowLong 来实现这个任务，此
函数的原型为：
SetWindowLong PROTO hWnd:DWORD, nIndex:DWORD, dwNewLong:DWORD
hWnd = 将要实施子类化的窗口的句柄
nIndex = 函数了功能索引
GWL_EXSTYLE 设置窗口的扩展风格.
GWL_STYLE 设置新的窗口风格
GWL_WNDPROC 设置新的窗口处理函数地址
GWL_HINSTANCE 设置新的应用程序句柄
GWL_ID 设置新的窗口标识
GWL_USERDATA 设置一个与这个窗口相关的给用户使用的32位的数据
dwNewLong = 用来更新的数据
我们的工作还是比较简单的：
写一个窗口函数用于处理发给 Edit 控件的消息。
用参数GWL_WNDPROC调用SetWindowLong 函数，如果调用成功那么返回值就是与调用功能
相联系的一个32位的整数
在我们的程序中，返回值就是原先窗口函数的地址。我们要保存这个值以便以后使用。
 记住：有一些我们不处理的消息，需要把它们派遣给原来的窗口函数来处理，这就用到
另外一个函数 CallWindowProc， 函数原型为：
CallWindowProc PROTO lpPrevWndFunc:DWORD, hWnd:DWORD, Msg:DWORD, wParam:DWOR
D, lParam:DWORD
lpPrevWndFunc = 窗口原来函数的地址. 剩下的四个参数就是发给自定义函数的参数，
直接把它们传给函数 CallWindowProc 就行了。
代码举例：
.386
.model flat,stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
include \masm32\include\comctl32.inc
includelib \masm32\lib\comctl32.lib
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
EditWndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
.data
ClassName  db "SubclassWinClass",0
AppName    db "Subclassing Demo",0
EditClass  db "EDIT",0
Message  db "You pressed Enter in the text box!",0
.data?
hInstance  HINSTANCE ?
hwndEdit dd ?
OldWndProc dd ?
.code
start:
   invoke GetModuleHandle, NULL
   mov    hInstance,eax
   invoke WinMain, hInstance,NULL,NULL, SW_SHOWDEFAULT
   invoke ExitProcess,eax
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD

   LOCAL wc:WNDCLASSEX
   LOCAL msg:MSG
   LOCAL hwnd:HWND
   mov   wc.cbSize,SIZEOF WNDCLASSEX
   mov   wc.style, CS_HREDRAW or CS_VREDRAW
   mov   wc.lpfnWndProc, OFFSET WndProc
   mov   wc.cbClsExtra,NULL
   mov   wc.cbWndExtra,NULL
   push  hInst
   pop   wc.hInstance
   mov   wc.hbrBackground,COLOR_APPWORKSPACE
   mov   wc.lpszMenuName,NULL
   mov   wc.lpszClassName,OFFSET ClassName
   invoke LoadIcon,NULL,IDI_APPLICATION
   mov   wc.hIcon,eax
   mov   wc.hIconSm,eax
   invoke LoadCursor,NULL,IDC_ARROW
   mov   wc.hCursor,eax
   invoke RegisterClassEx, addr wc
   invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR ClassName,ADDR AppName,\
WS_OVERLAPPED+WS_CAPTION+WS_SYSMENU+WS_MINIMIZEBOX+WS_MAXIMIZEBOX+WS_VISIBLE
,CW_USEDEFAULT,\
          CW_USEDEFAULT,350,200,NULL,NULL,\
          hInst,NULL
   mov   hwnd,eax
   .while TRUE
       invoke GetMessage, ADDR msg,NULL,0,0
       .BREAK .IF (!eax)
       invoke TranslateMessage, ADDR msg
       invoke DispatchMessage, ADDR msg
   .endw
   mov eax,msg.wParam
   ret
WinMain endp
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
   .if uMsg==WM_CREATE
       invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR EditClass,NULL,\
           WS_CHILD+WS_VISIBLE+WS_BORDER,20,\
           20,300,25,hWnd,NULL,\
           hInstance,NULL
       mov hwndEdit,eax
       invoke SetFocus,eax
       ;-----------------------------------------
       ; Subclass it!
       ;-----------------------------------------
       invoke SetWindowLong,hwndEdit,GWL_WNDPROC,addr EditWndProc
       mov OldWndProc,eax
   .elseif uMsg==WM_DESTROY
       invoke PostQuitMessage,NULL
   .else
       invoke DefWindowProc,hWnd,uMsg,wParam,lParam
       ret
   .endif
   xor eax,eax
   ret
WndProc endp
EditWndProc PROC hEdit:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
   .if uMsg==WM_CHAR
       mov eax,wParam
       .if (al>="0" && al<="9") || (al>="A" && al<="F") || (al>="a" && al<="
f") || al==VK_BACK
           .if al>="a" && al<="f"
               sub al,20h
           .endif
           invoke CallWindowProc,OldWndProc,hEdit,uMsg,eax,lParam
           ret
       .endif
   .elseif uMsg==WM_KEYDOWN
       mov eax,wParam
       .if al==VK_RETURN
           invoke MessageBox,hEdit,addr Message,addr AppName,MB_OK+MB_ICONIN
FORMATION
           invoke SetFocus,hEdit
       .else
           invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam
           ret
       .endif
   .else
       invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam
       ret
   .endif
   xor eax,eax
   ret
EditWndProc endp
end start
分析：
invoke SetWindowLong,hwndEdit,GWL_WNDPROC,addr EditWndProc
mov OldWndProc,eax
在创建 Edit 控件后，通过调用 SetWindowLong 把原来的窗口函数地址替换为自定义函
数的地址，从而对它实施了窗口子类化，要注意 为了调用函数 CallWindowProc，我们
存储了原窗口函数地址，自已编写的EditWndProc 仅仅是个普普通通的窗口函数。当然
也可以再调用一次 SetWindowLong 函数来存储这个32位的值，
invoke SetWindowLong ,hwndEdit,GWL_USERDATA,eax 。
当然用的时候就要调用GetWindowLong 来取回这个值。
 .if uMsg==WM_CHAR
       mov eax,wParam
       .if (al>="0" && al<="9") || (al>="A" && al<="F") || (al>="a" && al<="
f") || al==VK_BACK
           .if al>="a" && al<="f"
               sub al,20h
           .endif
           invoke CallWindowProc,OldWndProc,hEdit,uMsg,eax,lParam
           ret
       .endif
在函数 EditWndProc 中，我们自己处理了WM_CHAR消息： 如果输入的字符是'0'--'9'、
'A'-'F'或者是'a'--'f'就接受，并且把此消息转发给原窗口函数，其中若输入的是小写
的'a'--'f'就把它变为大写。如果输入的不是十六进制字符，就丢掉它，并且也不转发
此消息。因此当输入是非十六进制字符时，这个字符就不会显示在 Edit 控件中。
   .elseif uMsg==WM_KEYDOWN
       mov eax,wParam
       .if al==VK_RETURN
           invoke MessageBox,hEdit,addr Message,addr AppName,MB_OK+MB_ICONIN
FORMATION
           invoke SetFocus,hEdit
       .else
           invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam
           ret
       .end
在这里我们通过处理 回车(Enter) 键进一步示范了子类化的能力。EditWndProc 通过检
查 WM_KEYDONW 消息来判断是否是 回车键，若是显示提示消息框，否则转发此消息。 
你可以用窗口子类化来控制另外的窗口，这是必须掌握的十分有用的技术之一。

--
Take it slow,     Set it couse,     Make it happen.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.97.235.21]