http://blog.csdn.net/dbyoung/article/details/7020620

通过控件句柄获取控件实例

2011-11-28 18:43 2794人阅读 评论(0) 收藏 举报
delphiintegerfunctionbyte2010

创建一Delphi工程，放置一个TEdit和TButton，在Edit1中随便输入一些文字。

 

 

[delphi] view plaincopy
  1. { 
  2.   ---------------通过控件句柄获取控件实例-------------------------------------------- 
  3.   ---------------原理详见 Classes.pas 单元，13045行 <Delphi7>------------------------ 
  4.   ---------------原理详见 Classes.pas 单元，11613行 <Delphi2007>--------------------- 
  5.   ---------------原理详见 Classes.pas 单元，13045行 <Delphi2010>--------------------- 
  6.   ---------------原理详见 Classes.pas 单元，13512行 <DelphiXE>----------------------- 
  7. }  
  8. function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;  
  9. type  
  10.   PObjectInstance = ^TObjectInstance;  
  11.   
  12.   TObjectInstance = packed record  
  13.     Code: Byte;            { 短跳转 $E8 }  
  14.     Offset: Integer;       { CalcJmpOffset(Instance, @Block^.Code); }  
  15.     Next: PObjectInstance; { MainWndProc 地址 }  
  16.     Self: Pointer;         { 控件对象地址 }  
  17.   end;  
  18. var  
  19.   wc: PObjectInstance;  
  20. begin  
  21.   Result := nil;  
  22.   wc     := Pointer(GetWindowLong(hWnd, GWL_WNDPROC));  
  23.   if wc <> nil then  
  24.   begin  
  25.     Result := wc.Self;  
  26.   end;  
  27. end;  
  28.   
  29. procedure TForm1.btn1Click(Sender: TObject);  
  30. begin  
  31.   btn1.Caption := TEdit(GetInstanceFromhWnd(edt1.Handle)).Text;  
  32. end;  


 

看我们是如何获取了Edit1中的文字的。很神奇把，懂VCL代码，就没有那么神奇了。