如何深度复制 Builder 组件，例如 TPanel、TButton 等

Question

有人知道如何深度复制构建器组件吗？

我的印象是我可以使用 Assign 函数，因为他们没有可用的复制构造函数？

我正在使用Assign，但它不喜欢TPanel（适用于Graphics::TBitmap）。我得到的错误是“无法将 TPanel 分配给 TPanel”？

有人知道我应该怎么做吗？一段sn-p的代码如下：

CConfigComponentPanel::CConfigComponentPanel( const CConfigComponentPanel& rkConfigComponentPanel ):
CConfigComponent( rkConfigComponentPanel ),
m_pkPanel( new TPanel(this) )
{
    m_pkPanel->Assign( rkConfigComponentPanel.m_pkPanel );
}

Answer 1

大多数 VCL 类根本没有实现 Assign() 或 AssignTo() 方法。通常，只有非可视实用程序类可以（TStringList、TFont、TGraphic 后代等）。深度复制组件（尤其是可视组件）的唯一方法是使用其 RTTI 循环遍历其属性，将其值从一个组件实例一次复制到另一个组件实例，如果存在子控件则递归。为了帮助您解决这个问题，请使用 TStream::WriteComponent() 和 TStream::ReadComponent() 方法将组件及其子项保存到临时内存 DFM 并从中读取。这样，RTL 会为您处理 RTTI 访问。例如：

CConfigComponentPanel::CConfigComponentPanel( const CConfigComponentPanel& rkConfigComponentPanel )
    : CConfigComponent( rkConfigComponentPanel ), m_pkPanel( new TPanel(this) ) 
{ 
    TMemoryStream *Strm = new TMemoryStream;
    try
    {
        Strm->WriteComponent( rkConfigComponentPanel.m_pkPanel );
        Strm->Position = 0;
        Strm->ReadComponent( m_pkPanel );
    }
    __finally
    {
        delete Strm;
    }
} 

或者：

CConfigComponentPanel::CConfigComponentPanel( const CConfigComponentPanel& rkConfigComponentPanel )
    : CConfigComponent( rkConfigComponentPanel ), m_pkPanel( NULL ) 
{ 
    TMemoryStream *Strm = new TMemoryStream;
    try
    {
        Strm->WriteComponent( rkConfigComponentPanel.m_pkPanel );
        Strm->Position = 0;
        m_pkPanel = (TPanel*) Strm->ReadComponent( NULL );
        InsertComponent( m_pkPanel );
    }
    __finally
    {
        delete Strm;
    }
}