关于动态生成控件及事件设置
我需要做一个小东西，需要下面的内容，程序写了一部分，我刚学BCB不久啊，请大侠帮忙！！
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TLabel *lbl;
TButton *btn;
//建立10个Tlabel控件数组
for (int i=0;i<10;i++)
{
lbl = new TLabel(this); //建立一个TLabel
lbl->Parent=this; //设置Parent属性
lbl->Name="MyLabel"+String(i); //设置Name属性
lbl->Caption=lbl->Name; //设置Caption属性
lbl->Left=i*80+20; //设置坐标
lbl->Top=0;
lbl->OnClick=ControlClick; //设置事件Click Event
lbl->Visible=true; //显示
}
//建立10个TButton控件数组
for (int i=0;i<10;i++)
{ //同上
btn = new TButton(this);
btn->Parent=this;
btn->Name="MyButton"+String(i);
btn->Caption=btn->Name;
btn->Left=i*80+20;
btn->Top=100;
btn->OnClick=ControlClick;
btn->Visible=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ControlClick(TObject *Sender)
{
用switch,case语句做一些复杂的控制，对每个控件进行事件控制。
}
问题点数：70、回复次数：3Top
1 楼dreamfly555（mengxiang ）回复于 2005-08-02 12:10:30 得分 0
没人帮我解决吗？Top
2 楼chpst（斗转星移）回复于 2005-08-02 15:16:01 得分 70
TLabel *lbl[10];
TButton *btn[10];
//建立10个Tlabel控件数组
for (int i=0;i<10;i++)
{
lbl[i]=new TLabel(this); //产生控件
.
.
.
}Top
3 楼lvjack（追逐梦想）回复于 2006-01-14 11:00:00 得分 0
准备强制结贴，请大家提供有效答案Top
