句柄 获得对象 学习 研究 参考 大牛的代码 感谢

 var
  btn:tbutton;
  btn_hwnd:thandle;
begin
  btn_hwnd:=某个按钮的句丙；
   btn:=.....(btn_hwnd);  //这里是一个句柄转换成控件的函数
   操作这个 btn 就是那个按钮了

end;
【大牛】大悟还俗(286848376)  15:28:49
function GetInstanceFromhWnd(const hWnd: Cardinal): TWinControl;
type
  PObjectInstance = ^TObjectInstance;

  TObjectInstance = packed record
    code: Byte; 
    offset: Integer;     
Next: PObjectInstance;   
  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;
//////////具体函数