C＋＋Builder中實現控制項數組的功能

Borland C＋＋ Builder作為Inprise（原Borland）公司新推出的快速應用程式開發工具（RAD），具有威力強大的C＋＋語言和快捷便利的可視化編程完美結合的優點，遺憾的是其沒有直接提供像VB中的控制項數組的功能，需要開發人員自己編程實現。
　　 VB中的一個控制項數組可以1、允許多個控制項共用同一個事件控制代碼，2、提供了運行期間增加一個控制項的機制，3、提供了一種方便的群組控制項的方法。前兩項在C＋＋ Builder中早已實現，而且CB更有一個優點。即不同類型的控制項可以使用相同的控制代碼（只需在相關控制項的Object Inspector視窗中的EVENT事件設定即可）。
　　 C＋＋ Builder中使用了Tlist類對象來群組控制項數組，與VB控制項數組元素必須為同一類型控制項相比較，C＋＋ Builder中的Tlist類對象可以組合任意類型的控制項而不必強求同一種類，這樣就大大地方便了程式開發人員。例如可以把在不同Panel面板控制項上的所有控制群組合為一個控制項數組。
　　 作者在開發即時監控程式時，應用Tlist類對象建立、維護了多類型的控制項數組。其實現原理與方法詳見以下的原程式碼。執行個體程式實現了動態建立一個包含8個TEdit類型控制項和4個TImage類型控制項的控制項數組，在程式運行中對所建立的控制項進行修改、維護的功能（簡單起見，只對TImage控制項的Parent屬性進行了修改，對控制項數組中各個控制項的屬性修改及事件處理控制代碼均可依此方法修改）。
　　 1、建立一個新的工程檔案（New Application），在Form1上放置兩個TPanel類型的Panel1和Panel2,調整大小合適，再在表單下方放置四個TButton類型Button1,Button2,Button3,Button4，設定控制項屬性如下：Button1－>Caption=“建立控制項數組”，Button2－>Caption=“改變控制項位置”， Button3－>Caption=“還原到原位置”， Button4－>Caption=“退出”；Button2－>Enabled=false，Button3－>Enabled=false。
　　 （註：以下黑體字部分為需要手工添加的代碼）
　　2、在檔案Unit1.H中加入以下聲明：
　　class TForm1 : public TForm
　　{
　　__published: // IDE－managed Components
　　 TPanel ＊Panel1;
　　 TPanel ＊Panel2;
　　 TButton ＊Button1;
　　 TButton ＊Button2;
　　 TButton ＊Button3;
　　 TButton ＊Button4;
　　private: // User declarations
　　 TList ＊MyVCL;
　　public: // User declarations
　　 __fastcall TForm1(TComponent＊ Owner);
　　 virtual __fastcall ～TForm1( );
　　};
　　3、切換到工程的Form介面，雙擊工程的主介面Form，建立一個OnCreate事件控制代碼，在檔案Unit1.CPP中加入以下代碼：
　　void __fastcall TForm1::FormCreate(TObject ＊Sender)
　　{
　　 MyVCL = new TList;//建立TList對象
　　}
　　將TForm1解構函式加入到檔案Unit1.CPP中：
　　__fastcall TForm1::～TForm1()
　　{
　　 delete MyVCL; //刪除TList對象
　　}
　　 4、雙擊標籤（Caption）為“建立控制項數組”的按鈕，建立一個OnClick事件控制代碼，添加以下代碼到OnClick事件控制代碼中：
　　void __fastcall TForm1::Button1Click(TObject ＊Sender)
　　{
　　 //建立新的控制項，調整其位置，並加入到MyVcl（TList 類）之中
　　 int temptop=5;
　　 for (int i=0;i<4;i＋＋) {
　　 TEdit ＊EditNow = new TEdit(this);
　　 EditNow－>Parent=Panel1;
　　 EditNow－>Text= IntToStr(i);
　　 EditNow－>ReadOnly=true;
　　 EditNow－>Top=temptop;
　　 EditNow－>Height=24;
　　 EditNow－>Width=24;
　　 EditNow－>Left=10;
　　 MyVCL－>Add(EditNow); //加入到控制項數組中
　　 TImage ＊ImageOff= new TImage(this);
　　 ImageOff－>Parent=Panel1;
　　 ImageOff－>Picture－>LoadFromFile(“None.BMP”);
　　 ImageOff－>Top=temptop;
　　 ImageOff－>Height=24;
　　 ImageOff－>Width=24;
　　 ImageOff－>Left=EditNow－>Left＋EditNow－>Width;
　　 MyVCL－>Add(ImageOff); //加入到控制項數組中
　　 TEdit ＊EditStatus = new TEdit(this);
　　 EditStatus－>Parent=Panel1;
　　 EditStatus－>Font－>Name = “Arial”;
　　 EditStatus－>Font－>Size = 12;
　　 EditStatus－>Text=“禁止訪問”;
　　 EditStatus－>ReadOnly=true;
　　 EditStatus－>Top=temptop;
　　 EditStatus－>Height=24;
　　 EditStatus－>Width=80;
　　 EditStatus－>Left= ImageOff－>Left＋ImageOff－>Width;
　　 MyVCL－>Add(EditStatus); //加入到控制項數組中
　　 temptop=temptop＋24＋5;
　　}
　　 Button1－>Enabled=false;
　　 Button2－>Enabled=true;
　　}
　　5、同4所示方法，依次雙擊標籤的標題（Caption）為“改變控制項位置”、 “還原到原位置”、 “退出”的按鈕，建立對應的OnClick事件控制代碼，添加以下代碼到對應的OnClick事件控制代碼中：
　　void __fastcall TForm1::Button2Click(TObject ＊Sender)
　　{
　　 for (int i=0;i<4;i＋＋)
　　 ((TImage＊)MyVCL－>Items[i＊3＋1])－>Parent=Panel2;
　　 Button2－>Enabled=false;
　　 Button3－>Enabled=true;
　　}
　　void __fastcall TForm1::Button3Click(TObject ＊Sender)
　　{
　　 for (int i=0;i<4;i＋＋)
　　 ((TImage＊)MyVCL－>Items[i＊3＋1])－>Parent=Panel1;
　　 Button3－>Enabled=false;
　　 Button2－>Enabled=true;
　　}
　　void __fastcall TForm1::Button4Click(TObject ＊Sender)
　　{
　　 Close(); //關閉表單
　　}
　　由上所述，實際的代碼大多隻是用於設定控制項位置和基本屬性，真正實現控制項數組功能的代碼並不太多，也不複雜，而且十分的靈活；需要注意的是使用TList類對象組合中的各項控制項之前，必須先將其強制轉換為一個對象指標以指明其類型，才能對其屬性進行修改/賦值操作。
　　本文程式在C＋＋ Builder 3.0/ PWin95，C＋＋ Builder 4.0/ PWin98下調試通過。