怎么样动态的创建控件？

[xujie839997]

比如说动态的创建TLabel，如何实现呢，麻烦各位说详细点

[halibut]

void __fast.. Button1Click(TObject *Sender)
{
TLabel * lbl = new TLabel(this);
lbl->Left = 10;
lbl->Top = 20;
lbl->Caption = "haha";
MessageBox(Handle,"xixi","Msg",MB_OK);
delete lbl;
}

[xiongliang]

在窗体加载事件里申明一个变量为TLABE对象，
接着创一个TLABE对象的实例，
就可以设置它的任意属性值了！
并且可以反复创建TLABE对象的实例，呵呵~

[hzhxxx]

new a
if an is visible
{
set parent
}
delete a

[kinglon]

void __fastcall Form1::Button1Click(TObject *Sender)
{
TLabel * lbl = new TLabel(this);
lbl->Parent=Form1;//这里必须指定控件所属的父，不然不会显示出来的
lbl->Left = 10;
lbl->Top = 20;
lbl->Caption = "Label";

}

[bluecyclone]

我认为释放内存用lbl->free();比较好！因为它是经过优化的！

[crysword]

同意 halibut(乡下人)。