c++ builder XE4, 10.2 Tokyo > 動的生成 > TPanel内のTLabelを動的コピーする / TLabelかどうかを知るのはClassName()使用

C++ Builder XE4 on Windows 7pro
Rad Studio 10.2 Tokyo Update 2 (追記: 2017/12/27)

static bool isTLabel(TControl *srcPtr) { return srcPtr->ClassName() == L"TLabel"; }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TLabel *work;
    TLabel *srcPtr;

        // copy all the TLabels from Panel1 to Panel2
    for(int idx=0; idx < Panel1->ControlCount; idx++) {
        if (isTLabel(Panel1->Controls[idx]) == false) {
            continue;
        }

        srcPtr = (TLabel *)Panel1->Controls[idx];

        work = new TLabel( this );
        work->Name = L"test" + IntToStr(idx);
        work->Parent = Panel2;
        work->Height = srcPtr->Height;
        work->Width = srcPtr->Width;
        work->Left = srcPtr->Left;
        work->Top = srcPtr->Top;
        work->Font = srcPtr->Font; /* Font */
        work->Caption = srcPtr->Caption;
        work->Visible = srcPtr->Visible;
    }
}

    dstPtr->Hint = dstPtr->Name;
    dstPtr->ShowHint = true;

        work = new TLabel( this );