Borland C++ Builder作為Inprise(原Borland)公司新推出的快速應用程序開發工具(RAD),具有威力強大的C++語言和快捷便利的可視化編程完美結合的優點,遺憾的是其沒有直接提供像VB中的控件數組的功能,需要開發者自己編程實現。
VB中的一個控件數組可以
前兩項在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下調試通過。
