GetClass总得不到结果。

[huangjacky]

GetClass是RegGroups总去找寻注册了的类。
看我一个代码吧。

procedure TForm1.btn1Click(Sender: TObject);
var
  aClass:TClass;
begin
  aClass:=GetClass('TButton');
  ShowMessage(aClass.ClassName);
end;

就这么简单。
不过失败了 。

其实我想要的结果是我输入一个字符串 返回一个TClass
谁有这样的函数？

[bdmh]

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

[木老师]

看下面的对你有没有用.
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;

[huangjacky]

GetClass 貌似必须先注册。。

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

[火龙岛主]

GetClass必须先RegisterClass才可以