2021-07-29 BCB动态创建控件实例

动态创建控件的例子。

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "wxpassUnit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TListBox *mlist[24];

   for(int k=0;k<24;k++)
   {
     mlist[k]=new TListBox(Form1);
   }
   mlist[0]=ListBox2;
   mlist[1]=ListBox3;
   mlist[2]=ListBox4;
   mlist[3]=ListBox5;
   mlist[4]=ListBox6;
   mlist[5]=ListBox7;
   mlist[6]=ListBox8;
   mlist[7]=ListBox9;
   mlist[8]=ListBox10;
   mlist[9]=ListBox11;
   mlist[10]=ListBox12;
   mlist[11]=ListBox13;
   mlist[12]=ListBox14;
   mlist[13]=ListBox15;
   mlist[14]=ListBox16;
   mlist[15]=ListBox17;
   mlist[16]=ListBox18;
   mlist[17]=ListBox19;
   mlist[18]=ListBox21;
   mlist[19]=ListBox22;
   mlist[20]=ListBox23;
   mlist[21]=ListBox24;
   mlist[22]=ListBox25;
   for(int k=0;k<23;k++)
   {
     mlist[k]->Items->Strings[10]=AnsiString(k);
   }
}
//---------------------------------------------------------------------------