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;
　　 
          }

• 首頁
• 上一頁
• 1
• 2
• 下一頁
• 尾頁
• 共2頁