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) ,


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM