只知控件的句柄Handle,如何获取控件的属性？

Question

例如：如果只知道TEDIT控件的Handle，如何获取TEDIT控件的ReadOnly属性值？

Answer 1

function GetEdtAttrib(aHandle:HWND):Boolean;
var aControl: TWinControl;
begin
  Result := False;
  aControl := FindControl(Handle);
  if aControl <> nil then
    if (aControl is TEdit) then
      Result := TEdit(aControl).ReadOnly;
end;

Answer 2

不好意思，上面写错了。function GetEdtAttrib(aHandle:HWND):Boolean;
var aControl: TWinControl;
begin
  Result := False;
  aControl := FindControl(aHandle);
  if aControl <> nil then
    if (aControl is TEdit) then
      Result := TEdit(aControl).ReadOnly;
end;