Как динамически дублировать вкладку?

Question

У меня есть TPageControl с TTabSheet. и в этом TTabSheet у меня есть куча функций и компонентов. Я хотел бы дублировать этот tabSheet во время выполнения с помощью кнопки со всеми функциями и компонентами, все еще находящимися в ней и работающими.

Прямо сейчас мне удалось дублировать вкладку. Однако новый лист полностью пуст.

Вот мой код для этой кнопки.

TTabSheet * NewTabSheet= new TTabSheet(pageControlMain); 
NewTabSheet->PageControl = pageControlMain; 
NewTabSheet->Caption = "TabSheet"; 
pageControlMain->ActivePage = NewTabSheet; 

Что мне не хватает?

Что касается компонентов и функций внутри TTabSheets, это всего лишь прокрутки, правки, кнопки и панели.

Answer 1

Класс TTabSheet сам по себе не имеет дочерних элементов управления, поэтому вы ничего не видите. Вы должны создать экземпляр каждого отдельного элемента управления и скопировать их данные.

Один из способов сделать это является использование TStream.WriteComponent() и TStream.ReadComponent() методы, чтобы сохранить источник TTabSheet во временную DFM, а затем загрузить его в новую TTabSheet, например:

TMemoryStream *Strm = new TMemoryStream; 
Strm->WriteComponent(SourceTabSheet); 
Strm->Position = 0; 
TTabSheet *NewTabSheet = new TTabSheet(pageControlMain); 
NewTabSheet->PageControl = pageControlMain; 
Strm->ReadComponent(NewTabSheet); 
pageControlMain->ActivePage = NewTabSheet; 
delete Strm; 

Другой вариант заключается в размещении вашего компоненты на TFrame -derived класса во время разработки, а затем создать экземпляр этого класса во время выполнения и поместите его на каждый TTabSheet, позволяя ему обрабатывать элементы управления для вас, например:

TTabSheet *NewTabSheet = new TTabSheet(pageControlMain); 
NewTabSheet->PageControl = pageControlMain; 
TMyFrame *NewFrame = new TMyFrame(NewTabSheet); 
NewFrame->Parent = NewTabSheet; 
pageControlMain->ActivePage = NewTabSheet;