我如何在运行期内注册一个ClassName已知的Class?

解决方案 »

  1.   

    RegisterClass(AClass: TPersistentClass)
      

  2.   

    可我只知道这个Class的ClassName,
    例如,我知道'TButton',我该怎么把这个'TButton'转换成TPersistentClass?
      

  3.   

    TForm1 = Class(Form) ;initialization
      RegisterClass(TForm1) ; 
      

  4.   

    然后再 :GetClass('TForm1') ;
      

  5.   

    那是因为你知道了有Form1这个类,
    如果我只是知道a.ClassName,我该怎么注册a呢?也就是我怎么把ClassName跟Class联系起来?
      

  6.   

    GetClass是针对已经注册的类,如果这个类还没注册呢?我现在的主要目的就是为了注册类