子类化问题，请大大们帮忙一下，分不多，表示一下心意. ( 积分: 150 )

初学者1号 · 2005-09-04

为了使自己的EDIT不被别的程序取得其中内容，我从tEdit继承出一个newEdit,并且重新定义了消息函数WM_GETTEXT.这下问题来了，连edit1.text:=newEdit1.text执行的时候，都会被拦截。请问大大，如何分辨出是本程序发送的消息还是外部程序发送的消息？

初学者1号 · 2005-09-04

为了使自己的EDIT不被别的程序取得其中内容，我从tEdit继承出一个newEdit,并且重新定义了消息函数WM_GETTEXT.这下问题来了，连edit1.text:=newEdit1.text执行的时候，都会被拦截。请问大大，如何分辨出是本程序发送的消息还是外部程序发送的消息？

zjan521 · 2005-09-04

你需要重载newEdit1.text这个属性,如何处理看你自己了,比如你可以把发送WM_NEWGETTEXT消息(自定义),然后在WNDPROC中如果监测到WM_NEWGETTEXT,那么result:= inherited(..., WM_GETTEXT,..);

zhengyong7381 · 2005-09-04

你要先继承父类的消息！inherited();

初学者1号 · 2005-09-04

to zjan521: 您的意思是不是自定义一个消息，需要取文本框内容的时候，就发这个消息？如果是这样，同样会使用到WM_GETTEXT消息。还有，inherited这个的用法如您所说？ to zhengyong7381: 如果继承了父类的消息，那么，相当于执行了子类自定义的消息以及父类的默认过程。 问题的关键是如何区别其他进程与本程的消息。我的困境是，现在连本身进程都无法取文本框内容了。

初学者1号 · 2005-09-06

好心人帮帮忙。。。。

lichengbin · 2005-09-06

如zjan521所说，重载Text属性，设定一个内部标志，然后inherited Text，完了清此标志，在WM_GETTEXT中，判断这个标志，如果没有置这个标志，那么应该就不是本程序的调用，给它返回一个随机字符串[

][

]

survival · 2005-09-06

收到gettext消息时，让祖先窗口函数处理，把结果保存在私有变量里面然后破坏掉返回值，再重载text属性:先发送wm_gettext消息，然后读取私有变量作为返回结果.

初学者1号 · 2005-09-06

type  myEdit=class(tEdit)    private      canGet:boolean;    public      procedure mGetText(var msg:tMessage);message:WM_GETTEXT;      begin        if canGet then inherited;      end;      end; var  edit:myEdit; 在执行tempStr:=edit.text 前，先edit.canGet:=true;执行完后是edit.canGet:=false; 这样就能限制别的程序使用WM_GETTEXT来读文本了。这样行吗？ 如果有有的方法请提出来，一切为了研究技术。

chenybin · 2005-09-06

其实我很想知道QQ怎么弄的，用Spy根本找不出句柄，如果做到那样，其实也是一种方式 不过没测试过 unit Main; interface uses    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,    Dialogs, StdCtrls; type    TMyEdit = class(tEdit)    private        FcanGet: boolean;    public        procedure DefaultHandler(var Message); override;        property canGet: boolean read FcanGet write FcanGet;        constructor Create(AOwner: TComponent); override;        destructor Destroy; override;    end;    TForm1 = class(TForm)        Button1: TButton;        procedure Button1Click(Sender: TObject);        procedure FormCreate(Sender: TObject);    private        { Private declarations }    public        { Public declarations }    end; var    Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var    H: THandle;    textmaxlength: integer;    textcontent: array[0..100] of char; begin    H := FindWindowEx(self.Handle, 0, PChar('TMyEdit'), 0);    if H > 0 then begin        SendMessage(H, WM_GETTEXT, textmaxlength, lparam(@textcontent));        Caption := textcontent;    end; end; { TmyEdit } constructor TMyEdit.Create(AOwner: TComponent); begin    inherited Create(AOwner);    FcanGet := False; end; procedure TMyEdit.DefaultHandler(var Message); var    P: PChar; begin    with TMessage(Message) do        case Msg of            WM_GETTEXT: begin                    if FcanGet then begin                        if PChar(Text) <> nil then                            P := PChar(Text)                        else                            P := '';                        Result := StrLen(StrLCopy(PChar(lparam), P, WParam - 1));                    end                    else                        Result := StrLen(StrLCopy(PChar(lparam), PChar(''), WParam - 1)); ;                end;        else            inherited;        end; end; destructor TMyEdit.Destroy; begin    inherited; end; procedure TForm1.FormCreate(Sender: TObject); begin    with TMyEdit.Create(nil) do begin        Parent := self;        Left := 0;        Top := 0;        Width := 100;        Height := 25;        Text := 'asdf';        show;    end; end; end. 好像没有到WM_GetText，帮看看哪里写错了，H句柄已经获得了，但是跟踪不到TMyEdit的那个消息循环里面去

zjan521 · 2005-09-07

//来自：chenybin, 时间：2005-9-6 21:17:31, ID：3194192 //其实我很想知道QQ怎么弄的，用Spy根本找不出句柄，如果做到那样，其实也是一种方式 找不到句柄有很多种方式. 1.本身就没有句柄,比如JAVA的程序,全部都是它内部调度.自己也可以模拟实现,不外乎DrawBorder/DrawText/SetCaretPos/KeyMessage这些,并不复杂,仅仅是麻烦.而且RichEdit支持一种无句柄模式，不过没有具体接触过。 2.可能是直接用SPY++得不到，可是如果你查看父窗体的子窗体，可能是存在的，这个具体原因不是很清楚，这两天一个WindowsMCE05中的舞者的更新程序发现是这样的，似乎跟Z_ORDER有关。 unit EditEx; interface uses SysUtils, Classes, Controls, StdCtrls, Messages; const WM_GETTEXT_EX = WM_USER + $1001; type TEditEx = class(TEdit)  private    function GetText: String; procedure SetText(const Value: String); protected procedure WndProc(var Mesg: TMessage); override; function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; published property Text : String read GetText write SetText; end; procedure Register; implementation procedure Register; begin RegisterComponents('ZJAn521', [TEditEx]); end; { TEditEx } function TEditEx.GetText: String; var Len: Integer; begin Len := GetTextLen; SetString(Result, PChar(nil), Len); if Len <> 0 then GetTextBuf(Pointer(Result), Len + 1); end; function TEditEx.GetTextBuf(Buffer: PChar; BufSize: Integer): Integer; begin Result := Perform(WM_GETTEXT_EX, BufSize, Longint(Buffer)); end; procedure TEditEx.SetText(const Value: String); begin Inherited Text:= Value; end; procedure TEditEx.WndProc(var Mesg: TMessage); begin case Mesg.Msg of WM_GETTEXT: Mesg.Result:= 0; WM_GETTEXT_EX: begin Mesg.Msg:= WM_GETTEXT; Inherited; end; else Inherited; end; end; end.

江南草 · 2005-09-07

这不叫子类化吧。（subclassing） 用spyxx还是可以看到自定义的消息吧。

初学者1号 · 2005-09-07

to 江南草: 请问如何才能称得上子类化，诚心请教！

chenybin · 2005-09-08

没弄过，转一篇文章，是VC的 http://www.ddvip.net/program/masm/index1/20.htm 窗口子类化 作者：unknown 更新时间： 2005-03-13       　　在这一讲，我们将学习什么是窗口子类化和怎样按你所想要的方式方便地使用它。 理论： 如果你曾经在 Windows 环境下编过程序，有时候就会发现：有一个现成的窗口，几乎有你所需要的全部功能，但还不完全一样（否则就没有必要讲这一节了）。你曾遇到过这样的处境吗，如果你需要一个具有过滤特殊字符功能的 Edit 控件。当然最直接的方法就是自己用代码来实现，但这的确是一个费时又很困难的任务，而窗口子类化就可以用来做这种事情。 窗口子类化允许你接管被子类化的窗口，使你对它有绝对的控制权。举个例子了来阐明一下：例如你需要一个只接受十六进制数字输入的文本编辑框，如果使用一个简单的 Edit控件，当用户输入十六进制以外的字符时，你既不知道也无计可施。也就是说，当用户进文本框中输入字符串 "zb+q*" 时，如果除了拒绝接受整个字符串以外几乎什么也不能做，至少这显得特别不专业。重要的是，你需要具有输入检测的能力，即每当用户输入一个字符到编辑框中时要能检测这个字符。 现在来解释实现细节：当用户往文本框中输入字符时，Windows 会给Edit控件的窗口函数发送 WM_CHAR 消息。这个窗口函数本身寄生于 Windows 中，因此不能直接修改它。但是我们可以重定向这个消息使之发送到我们自己编写的窗口处理函数。如果自定义窗口要处理这个消息那就可以处理它，如果不处理就可以把这个消息转发到它原来窗口处理函数。通过这种方式，自定义的窗口处理函数就把它自己插入到 Windows 系统和 Edit 控件之间。 看下面的流程： 窗口子类化之前 Windows ==>Edit 控件的窗口处理函数。 子类化之后 Windows ==>自定义的窗口处理函数==> Edit 控件的窗口处理函数。 注意子类化并不局限于控件，可以子类化任何窗口，现在我们要把精力集中到怎样实现子类化一个窗口上。让我们想想Windows 怎样知道 Edit 控件的窗口处理函数放在什么地方。猜的？…肯定不是。原来 WNDCLASSEX 结构的成员 lpfnWndProc 指出了窗口函数地址。如果能用自己编写的窗口函数的地址来替换这个成员变量，那 Windows 不就把消息发到自定义的窗口函数了吗! 我们通过调用函数SetWindowLong 来实现这个任务，此函数的原型为： SetWindowLong PROTO hWnd

WORD, nIndex

WORD, dwNewLong

WORD 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

WORD, hWnd

WORD, Msg

WORD, wParam

WORD, lParam

WORD 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

WORD,

WORD EditWndProc PROTO

WORD,

WORD .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

WORD 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

WORD,uMsg

WORD,wParam

WORD,lParam

WORD .if uMsg==WM_CHAR mov eax,wParam .if (al>="0" && al<="9&quot

|| (al>="A" && al<="F&quot

|| (al>="a" && al<="f&quot

|| 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_ICONINFORMATION 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&quot

|| (al>="A" && al<="F&quot

|| (al>="a" && al<="f&quot

|| 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_ICONINFORMATION invoke SetFocus,hEdit .else invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam ret .end 在这里我们通过处理回车(Enter) 键进一步示范了子类化的能力。EditWndProc 通过检查 WM_KEYDONW 消息来判断是否是回车键，若是显示提示消息框，否则转发此消息。你可以用窗口子类化来控制另外的窗口，这是必须掌握的十分有用的技术之一。

初学者1号 · 2005-09-08

to chenybin大大： 您的方法感觉就像是重载了一个wndProc过程。我试着做了一下，感觉还不是一般的郁闷。特别是在取函数入口地址的时候。同样的用@MainWndProc取地址，如果在form中，就不能使用；但在project中，就能使用。汗啊

初学者1号 · 2005-12-08

接受答案了.

子类化问题，请大大们帮忙一下，分不多，表示一下心意. ( 积分: 150 )

初学者1号

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

zhengyong7381

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

lichengbin

Unregistered / Unconfirmed

survival

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

江南草

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

chenybin

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

初学者1号

Unregistered / Unconfirmed

Similar threads