如何动态复制页签？

Question

我有一台带TTabSheet的TPageControl。在这个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;