C++Builder 實現控件數組：用 TList 突破類型限制的靈活方案

C++Builder (BCB) 雖無 VB 式的原生控件數組，但利用 TList 容器可實現**更強大**的異構控件集合：不同類型控件（TEdit、TImage、TButton…）可混合存放、統一遍歷、批量操作屬性/事件。本文通過完整實例演示動態創建、維護混合類型控件數組的核心技巧。

核心思路

• TList 存儲 void* 指針，可容納任意 TControl 子類對象；
• 使用時 **強制轉型** 為具體類型指針（如 (TImage*)List->Items[i]）再訪問成員；
• 不同類型控件可共享同一事件處理函數（BCB 原生支持）。

完整實例：動態構建 8×TEdit + 4×TImage 數組

1. 類聲明 (Unit1.h)

class TForm1 : public TForm {
__published:
    TPanel *Panel1, *Panel2;
    TButton *Button1, *Button2, *Button3, *Button4;
private:
    TList *MyVCL;  // 控件數組容器
public:
    __fastcall TForm1(TComponent* Owner);
    virtual __fastcall ~TForm1();
};

2. 構造/析構管理容器生命週期

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
    MyVCL = new TList;
}
__fastcall TForm1::~TForm1() {
    // 注意：TList 不擁有對象所有權，控件由 Owner (Form) 自動釋放
    delete MyVCL;
}

3. 動態創建混合控件 (Button1: "新建控件數組")

void __fastcall TForm1::Button1Click(TObject *Sender) {
    int top = 5;
    for (int i = 0; i < 4; ++i) {
        // TEdit 1: 序號
        TEdit *editNo = new TEdit(this);
        editNo->Parent = Panel1;
        editNo->Text = IntToStr(i);
        editNo->ReadOnly = true;
        editNo->SetBounds(10, top, 24, 24);
        MyVCL->Add(editNo);

        // TImage: 圖標
        TImage *img = new TImage(this);
        img->Parent = Panel1;
        img->Picture->LoadFromFile("None.BMP");
        img->SetBounds(editNo->Left + editNo->Width, top, 24, 24);
        MyVCL->Add(img);

        // TEdit 2: 狀態文本
        TEdit *editStatus = new TEdit(this);
        editStatus->Parent = Panel1;
        editStatus->Font->Name = "Arial";
        editStatus->Font->Size = 12;
        editStatus->Text = "禁止訪問";
        editStatus->ReadOnly = true;
        editStatus->SetBounds(img->Left + img->Width, top, 80, 24);
        MyVCL->Add(editStatus);

        top += 29;  // 24 高 + 5 間距
    }
    Button1->Enabled = false;
    Button2->Enabled = true;
}

4. 批量操作：移動圖標到 Panel2 (Button2: "改變控件位置")

void __fastcall TForm1::Button2Click(TObject *Sender) {
    for (int i = 0; i < 4; ++i) {
        // 每組 3 個控件，索引 1 為 TImage
        TImage* img = dynamic_cast<TImage*>(MyVCL->Items[i * 3 + 1]);
        if (img) img->Parent = Panel2;
    }
    Button2->Enabled = false;
    Button3->Enabled = true;
}

5. 還原與退出

void __fastcall TForm1::Button3Click(TObject *Sender) {
    for (int i = 0; i < 4; ++i) {
        TImage* img = dynamic_cast<TImage*>(MyVCL->Items[i * 3 + 1]);
        if (img) img->Parent = Panel1;
    }
    Button3->Enabled = false;
    Button2->Enabled = true;
}
void __fastcall TForm1::Button4Click(TObject *Sender) { Close(); }

關鍵技巧總結

此方案在 BCB 3.0/4.0 + Win95/98 驗證通過，對現代 C++Builder 版本同樣適用。掌握 TList 控件數組模式，能大幅簡化動態界面構建與批量操作邏輯。