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
 

相关阅读 >>

Delphi调用外部程序并等待其运行结束

Delphi idhashmessagedigest, idhash, idglobal md5

Delphi treeview基本用法

Delphi android 关闭应用程序对话框询问

Delphi edit1.gettextlen 获取编辑框字符数

Delphi检查字符串是否为纯数字

Delphi ios 保持设备开机状态

Delphi木马生成技术

Delphi webbrowser1 缩放网页

Delphi瞬间消除无用托盘图标(刷新托盘)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 通过控件句柄获取控件实例