Передача в функцию типа объекта

[d7d1cd]

Привет всем. Столкнулся со следующей проблемой. Хочу написать функцию, которая будет отображать на главной форме фреймы. Сами фреймы спроектированы заранее в визуальном режиме. Выделением и освобождением памяти для них должен я заниматься сам. Вопрос такой: каким образом в функции можно узнать из класса какого фрейма создавать объект?

Код

void ShowFrame(TFrame *Frame)
{
 Frame = new /* как тут определить класс какого фрейма использовать? */
 Frame->Parent = MainForm;
}

[POV]

Ну ты же его проектировал "в визуальном режиме" )) Ты и знаешь класс фрейма.

[d7d1cd]

Ну ты же его проектировал "в визуальном режиме" )) Ты и знаешь класс фрейма.

Совершенно верно, я знаю имена классов моих фреймов. Но у меня есть функция, которая должна уметь создать и отобразить фрейм зная о фрейме только его имя. Функция должна, при выделении памяти для фрейма, знать на основе какого класса сделан фрейм с таким то именем.

Код

// Фрейм DataFrame создан на основе класса TDataFrame
// Фрейм VideoFrame создан на основе класса TVideoFrame
// Фрейм FindFrame создан на основе класса TFindFrame
// Память для фреймов не выделена
 
// Каким образом здесь функция определит, что надо прибегнуть к использованию
// конструкции вида Frame = new TFindFrame(Application) ?
ShowFrame(FindFrame);
 
// А тут Frame = new TDataFrame(Application)
ShowFrame(DataFrame);

[POV]

Дык, тип наверное не передашь.. передавай его название в тестовом к примеру виде и по ветвлениям создавай объект нужного типа. делов-то.

[d7d1cd]

Дык, тип наверное не передашь.. передавай его название в тестовом к примеру виде и по ветвлениям создавай объект нужного типа. делов-то.

То есть, примерно так?

Код

void ShowForm(String ClassName)
{
 if(ClassName == L"TDataFrame") Frame = new TDataFrame(Application);
 if(ClassName == L"TFindFrame") Frame = new TFindFrame(Application);
 ...
}

[volvo877]

То есть, примерно так?

Можно примерно так:

Код

TComponent *CreateThis(TComponent *Owner, TMetaClass *myClass)
{
    TComponent *Result;
    Application->CreateForm(myClass, &Result);
    Application->RemoveComponent(Result);
    Owner->InsertComponent(Result);
    return Result;
}
 
// создаем любые классы, зарегистрированные через RegisterClass
 
    TButton *btn = dynamic_castTButton*>(CreateThis(this, __classid(TButton)));
    btn->Parent = this;
    TPanel *pnl = dynamic_castTPanel*>(CreateThis(this, __classid(TPanel)));
    pnl->Parent = this;