創建一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) ,