BCB高手進階-如何實現控件數組

(

在C++Builder中，沒有提供像VB中控件數組的功能,很令遺憾。經過一番琢摸，終于解決了這個問題。技巧不敢獨享，奉獻出來供大家交流。

在VB中，控件數組可以 ：

允許多個控件共享同一個事件句柄

提供了運行期間增加一個控件的機制

提供了一種方便的組合控件的方法。

前兩項在C++ Builder中早已實現,而且CB更有一個優點。即不同類型的控件可以使用相同的句柄(只需在相關控件的ObjectInspector窗口中的EVENT事件設置即可)。
　　 C++ Builder中使用了Tlist類對象來組合控件數組,與VB控件數組元素必須為同一類型控件相比較,C++Builder中的Tlist類對象可以組合任意類型的控件而不必強求同一種類,這樣就大大地方便了程序開發者。例如可以把在不同Panel面板控件上的所有控件組合為一個控件數組。
　　在具體的開發實踐中，我采用Tlist類對象創建、維護了多類型的控件數組。其實現原理與方法詳見以下的原程序代碼。實例程序實現了動態創建一個包含8個TEdit類型控件和4個TImage類型控件的控件數組,在程序運行中對所創建的控件進行修改、維護的功能。
　　 1、創建一個新的工程文件(NewApplication),在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 __fastcallTForm1::FormCreate(TObject*Sender)
　　{
　　 MyVCL = new TList;//創建TList對象
　　}
　　將TForm1析構函數加入到文件Unit1.CPP中：
　　__fastcallTForm1::~TForm1()
　　{
　　 delete MyVCL; //刪除TList對象
　　}
　　4、雙擊標簽(Caption)為"創建控件數組"的按鈕,創建一個OnClick事件句柄,添加以下代碼到OnClick事件句柄中：
　　void __fastcallTForm1::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 __fastcallTForm1::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 __fastcallTForm1::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 __fastcallTForm1::Button4Click(TObject*Sender)
　　{
　　 Close(); //關閉窗體
　　}
　　由上所述,實際的代碼大多只是用于設定控件位置和基本屬性,真正實現控件數組功能的代碼并不太多,也不復雜,而且十分的靈活；需要注意的是使用TList類對象組合中的各項控件之前,必須先將其強制轉換為一個對象指針以指明其類型,才能對其屬性進行修改/賦值操作。

總結

以上是生活随笔為你收集整理的BCB高手进阶-如何实现控件数组的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。