RegisterClass为什么不起作用？

Question

在Units中加入
initialization
  RegisterClass(TFrameGHDATATXT);
finalization
  UnRegisterClass(TFrameGHDATATXT);在另外一个窗口中使用如下语句
sTmp := 'TFrameGHDATATXT';
sClass := TFrameClass(FindClass(sTmp));运行中提示类不存在没有找到。请问为什么？在帮助文件中提到通过RegisterClass可以在Streaming中进行类的添加，就是想知道为什么上面的不能成功。另外请问怎么察看这个Streaming的内容啊

Answer 1

RegisterClass(TFrameGHDATATXT);把这句代码加在sTmp := 'TFrameGHDATATXT';
测试一下。
我用TFRom测试的好用。

Answer 2

这个窗口是个TFrame继承的,我也在工程里增加了这个窗口的,
DBgird  我试了下,还是不行啊