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

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

{

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

---------------原理详见 Classes.pas 单元，13045行 ------------------------

---------------原理详见 Classes.pas 单元，11613行 ---------------------

---------------原理详见 Classes.pas 单元，13045行 ---------------------

---------------原理详见 Classes.pas 单元，13512行 -----------------------

}

function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;

type

PObjectInstance = ^TObjectInstance;

TObjectInstance = packed record

Code: Byte; { 短跳转 $E8 }

Offset: Integer; { CalcJmpOffset(Instance, @Block^.Code); }

Next: PObjectInstance; { MainWndProc 地址 }

Self: Pointer; { 控件对象地址 }

end;

var

wc: PObjectInstance;

begin

Result := nil;

wc := Pointer(GetWindowLong(hWnd, GWL_WNDPROC));

if wc <> nil then

begin

Result := wc.Self;

end;

procedure TForm1.btn1Click(Sender: TObject);

begin

btn1.Caption := TEdit(GetInstanceFromhWnd(edt1.Handle)).Text;

end;

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

来源：http://blog.csdn.net/dbyoung/article/details/7020620

推荐分享