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事件句柄中：

#p#分页标题#e#

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下调试通过。