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 域名转ip并判断ip是否可以联通 复制代码

Delphi xe5实现的一个阳历转换成阴历的代码

Delphi 一个不错的枚举进程例子

Delphi idhashmessagedigest 获取文件md5

Delphi 实现代码重启android app

Delphi http 常见异常状态及Delphi idhttp 控件处理方式

Delphi searchrec.attr and fadirectory

Delphi readprocessmemory writeprocessmemory读写内存

Delphi 程序如何禁止切换输入法?

Delphi unigrid记录check遍历

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...