Delphi 中有没有类时VC中的Attach方法？

[gamestory]

刚接触Delphi，望高手解答。

例如，在VC中，我获取了另外一个窗口中的某个EDIT控件的HANDLE，在本地窗口中我可以声明一个CEdit类，则可以通过该类的Attach方法将HANDLE和本地变量关联起来，通过变量可以调用类方法。

HANDLE hEdit;     //设已经成功获取了另一个窗口中的Edit句柄
CEdit m_edit;
m_edit.Attach(hEdit);
//使用Attach之后，就可以通过m_edit直接操作另外一个窗口中的Edit控件,如下面此局可将Edit设为只读
m_edit.SetReadOnly(TRUE);

那么，在Delphi中，TEdit有没有类似的方法将HANDLE和类关联？

var 
  m_edit:TEdit;
  hEdit:HANDLE;
begin
  //??如何关联
  m_edit.ReadOnly:=TRUE;
end;

(不要说调用SendMessage)

[lake_cx]

貌似没有。。。
不知道你什么地方需要这么做？

[珍惜生命远离CPP]

没见过,
还是用SendMessage吧

[cncharles]

可以的

var
  hEdit: THandle;
  mEdit: TEdit;
  Control: TControl;
begin
  hEdit := Edit1.Handle;
  Control := FindControl(hEdit);
  if not (Control is TEdit) then
    Exit;
  mEdit := TEdit(Control);
  mEdit.ReadOnly := true;
end;