C++Builder中實(shí)現(xiàn)控件數(shù)組的功能

2019-11-17 05:20:28

字體：大中小

供稿：網(wǎng)友

　　Borland C++ Builder作為InPRise(原Borland)公司新推出的快速應(yīng)用程序開發(fā)工具(RAD),具有威力強(qiáng)大的C++語言和快捷便利的可視化編程完美結(jié)合的優(yōu)點(diǎn),遺憾的是其沒有直接提供像VB中的控件數(shù)組的功能,需要開發(fā)者自己編程實(shí)現(xiàn)。
VB中的一個(gè)控件數(shù)組可以

答應(yīng)多個(gè)控件共享同一個(gè)事件句柄
提供了運(yùn)行期間增加一個(gè)控件的機(jī)制
提供了一種方便的組合控件的方法。

前兩項(xiàng)在C++ Builder中早已實(shí)現(xiàn),而且CB更有一個(gè)優(yōu)點(diǎn)。即不同類型的控件可以使用相同的句柄(只需在相關(guān)控件的Object Inspector窗口中的EVENT事件設(shè)置即可)。
　　 C++ Builder中使用了Tlist類對象來組合控件數(shù)組,與VB控件數(shù)組元素必須為同一類型控件相比較,C++ Builder中的Tlist類對象可以組合任意類型的控件而不必強(qiáng)求同一種類,這樣就大大地方便了程序開發(fā)者。例如可以把在不同Panel面板控件上的所有控件組合為一個(gè)控件數(shù)組。
　　作者在開發(fā)實(shí)時(shí)監(jiān)控程序時(shí),應(yīng)用Tlist類對象創(chuàng)建、維護(hù)了多類型的控件數(shù)組。其實(shí)現(xiàn)原理與方法詳見以下的原程序代碼。實(shí)例程序?qū)崿F(xiàn)了動態(tài)創(chuàng)建一個(gè)包含8個(gè)TEdit類型控件和4個(gè)TImage類型控件的控件數(shù)組,在程序運(yùn)行中對所創(chuàng)建的控件進(jìn)行修改、維護(hù)的功能(簡單起見,只對TImage控件的Parent屬性進(jìn)行了修改,對控件數(shù)組中各個(gè)控件的屬性修改及事件處理句柄均可依此方法修改)。
　　 1、創(chuàng)建一個(gè)新的工程文件(New application),在Form1上放置兩個(gè)TPanel類型的Panel1和Panel2,調(diào)整大小合適,再在窗體下方放置四個(gè)TButton類型Button1,Button2,Button3,Button4,設(shè)置控件屬性如下：Button1->Caption="新建控件數(shù)組",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,創(chuàng)建一個(gè)OnCreate事件句柄,在文件Unit1.CPP中加入以下代碼：
　　void __fastcall TForm1::FormCreate(TObject *Sender)
　　{
　　 MyVCL = new TList;//創(chuàng)建TList對象
　　}
　　將TForm1析構(gòu)函數(shù)加入到文件Unit1.CPP中：
　　__fastcall TForm1::~TForm1()
　　{
　　 delete MyVCL; //刪除TList對象
　　}
　　 4、雙擊標(biāo)簽(Caption)為"創(chuàng)建控件數(shù)組"的按鈕,創(chuàng)建一個(gè)OnClick事件句柄,添加以下代碼到OnClick事件句柄中：
　　void __fastcall TForm1::Button1Click(TObject *Sender)
　　{
　　 //創(chuàng)建新的控件,調(diào)整其位置,并加入到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); //加入到控件數(shù)組中
　　 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); //加入到控件數(shù)組中
　　 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); //加入到控件數(shù)組中
　　 temptop=temptop+24+5;
　　   }
　　 Button1->Enabled=false;
　　 Button2->Enabled=true;
　　 }
　　5、同4所示方法,依次雙擊標(biāo)簽的標(biāo)題(Caption)為"改變控件位置"、 "還原到原位置"、 "退出"的按鈕,創(chuàng)建對應(yīng)的OnClick事件句柄,添加以下代碼到對應(yīng)的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(); //關(guān)閉窗體
　　}
　　由上所述,實(shí)際的代碼大多只是用于設(shè)定控件位置和基本屬性,真正實(shí)現(xiàn)控件數(shù)組功能的代碼并不太多,也不復(fù)雜,而且十分的靈活；需要注重的是使用TList類對象組合中的各項(xiàng)控件之前,必須先將其強(qiáng)制轉(zhuǎn)換為一個(gè)對象指針以指明其類型,才能對其屬性進(jìn)行修改/賦值操作。
　　本文程序在C++ Builder 3.0/ PWin95,C++ Builder 4.0/ PWin98下調(diào)試通過。

上一篇：C++Builder中"異形"按鈕的實(shí)現(xiàn)

下一篇：BCB利用組件傳送文件