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

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

 

{

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

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

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

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

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

}

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;

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

全文：http://www.delphitop.com/html/jiqiao/3137.html

 

delphi 跟 WebBrowser 中JS 交互思路

http://blog.csdn.net/qq_30289577/article/details/52727032

 

delphi webbrowser 执行 js ---转

http://www.cnblogs.com/chjb2007/p/6829566.html

 

关于Delphi中使用TChromium控件调用JS函数的问题

http://bbs.csdn.net/topics/390901112

 

(转)delphi chrome cef3 控件学习笔记 (三)

http://blog.csdn.net/risesoft2012/article/details/51260833

 

Chromium控件执行javascript后，如何取得返回值？

http://bbs.csdn.net/topics/390696182 //也就是CEF( Chromium Embedded Framework) ，