GetClass总得不到结果。

Question

GetClass是RegGroups总去找寻注册了的类。
看我一个代码吧。procedure TForm1.btn1Click(Sender: TObject);
var
  aClass:TClass;
begin
  aClass:=GetClass('TButton');
  ShowMessage(aClass.ClassName);
end;
就这么简单。
不过失败了 。其实我想要的结果是我输入一个字符串 返回一个TClass
谁有这样的函数？

Answer 1

var
  aClass:TClass;
begin
  RegisterClasses([TButton]);
  aClass:=GetClass('TButton');
  ShowMessage(aClass.ClassName);
end;

Answer 2

看下面的对你有没有用.
var
  cls:TClass;
  obj:TControl;
  fld:Pointer;
begin
  valid:=true;
  try
    cls:=getclass(str1);
    obj:=cls.create(nil);
    try
      fld:=obj.fieldaddress(str2);
      .....
    finally
      obj.free;
    end;
  except
   valid:=false;
  end;

Answer 3

GetClass 貌似必须先注册。。我主要想实现的是，想搜索，当用户输入一个类名，然后罗列出这个类的所有祖先，如果直接在函数这里
xxxx(TForm)是可以的
关键现在让别人来输入
XXXX('TForm') 这么办？

Answer 4

GetClass必须先RegisterClass才可以