Создать объект класса, имя которого хранится в переменной

[d7d1cd]

Привет всем. В программе есть объект, например TButton. Как создать экземпляр этого класса, если имеется только имя класса в переменной типа String? Уверен, что надо использовать функцию FindClass, но как воспользоваться результатом работы этой функции не знаю. Подскажите...

[xenon54]

Is there a way to instantiate a class by its name in delphi?

Изменено 8 мая, 2015 пользователем Brovin Yaroslav

[d7d1cd]

Спасибо за ссылку. Помогите перевести данный код на С++. Я начал так:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 RegisterClasses(TButton, TForm);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TPersistentClass CRef;
 TControl AControl;

 CRef = GetClass(L"TButton");
 if(CRef != NULL)
  {
   AControl = // Тут и дальше не знаю как...
  }
}