VPF::Копирование объекта произвольного класса

Ivan.

Дата 11.3.2013, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Здравствуйте. Подскажите как клонировать компонент лежащий на форме не зная его класса?

--------------------

Я могу ВСЁ, вопрос - сколько времени у меня это займет!

artsb

Дата 11.3.2013, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Простого способа нет. Копайте в сторону TMetaClass. В Delphi это, вроде бы, реализуется довольно просто, а вот в C++Builder так не получится.

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

Alexeis

Дата 12.3.2013, 16:42 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 26
Всего: 459

Осталось понять, что подразумевается под клонированием. В заголовке, вообще, написано произвольный класс. Объекты в С++ принято копировать при помощи конструктора копирования. Компонент можно сериализовать в поток, и затем извлечь оттуда новый экземпляр. Но это не будет клонирование в прямом смысле. Будут скопированы только published свойства и эвенты.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Dem_max

Дата 13.3.2013, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 14
Всего: 39

Видимо ТС хочет динамически размножить(создать) некое количество компонентов на форме.

--------------------

Американские программисты долго не могли понять, почему русские при зависании Windоws всё время повторяют "Твой зайка написал" ("Yоur bunnу wrоte")

Ivan.

Дата 13.3.2013, 09:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 2.11.2004

Репутация: нет
Всего: 2

Спасибо, помогло.

Код


TComponent *CopyComponent(TComponent *Component)
{
    TComponent *Result = NULL;
    Application->CreateForm(Component->ClassType(), &Result); //Создаем новый объект по ClassType исходника
    TMemoryStream *Stream = new TMemoryStream; //Создаем временный поток
    UnicodeString Name = Component->Name; //Запоминаем имя исходника
    Component->Name = ""; //Очизаем имя исходника во избежании конфликта имен
    Stream->WriteComponent(Component); //Выгружаем все измененные published в поток
    Component->Name = Name; //Восстанавливаем имя
    Stream->Position = 0; //Возвращаемся в начало потока
    Stream->ReadComponent(Result); //Загружаем в новый объект данные из потока
    delete Stream; //Удаляем временный поток
    Typinfo::TPropList pList; //Выгружаем все события
    int nPropCount = GetPropList((Typinfo::PTypeInfo)Component->ClassInfo(), Typinfo::TTypeKinds() << tkMethod, &pList);
    for(int i = 0; i < nPropCount; i++) //Копируем все события в новый объект
        SetMethodProp(Result, AnsiString(pList[i]->Name), GetMethodProp(Component, AnsiString(pList[i]->Name)));
    return Result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonClick(TObject *Sender)
{
    TControl *Control = (TControl*)CopyComponent((TComponent*)Sender);
    Control->Name = "Component" + IntToStr((int)Control); //Присваиваем уникальное имя для нового объекта
    Control->Parent = Form1; //Кладем его на нужную форму
    Control->Top = Control->Top + 30; //Задаем координаты нового объекта
}
//---------------------------------------------------------------------------

Это сообщение отредактировал(а) Ivan. - 13.3.2013, 09:28

--------------------

Я могу ВСЁ, вопрос - сколько времени у меня это займет!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »