TClass ClassRef;
    ListBox1->Clear();
    ClassRef = Sender->ClassType();
    while (ClassRef != NULL)
    {
        ListBox1->Items->Add(ClassRef->ClassName());
        ClassRef = ClassRef->ClassParent();
    };

 

#include <memory>       //For STL auto_ptr class
 
TMetaClass *MetaClass;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TClassFinder> myClassFinder(new TClassFinder(MetaClass, False));
  TGraphicClass mygraphclass = (TGraphicClass) (myClassFinder->GetClass(Edit2->Text));
//  TGraphicClass mygraphclass = (TGraphicClass) GetClass(Edit2->Text);
  Edit1->Text = GraphicExtension(mygraphclass);
}
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  MetaClass = __classid(TIcon); // ico
  RegisterClasses(&MetaClass, 0);
  MetaClass = __classid(Graphics::TBitmap); // bmp
  RegisterClasses(&MetaClass, 0);
  MetaClass = __classid(TMetafile); // emf
  RegisterClasses(&MetaClass, 0);
  MetaClass = __classid(TShape);  // no graphic extension
  RegisterClasses(&MetaClass, 0);
  MetaClass = __classid(TImage); // no graphic extension
  RegisterClasses(&MetaClass, 0);
}

http://docwiki.embarcadero.com/CodeExamples/XE8/en/ClassesGetClass_%28C%2B%2B%29

 

posted on 2015-07-12 22:37  lypzxy  阅读(527)  评论(0编辑  收藏  举报