动态创建控件的示例delphi

动态创建控件的原程序,共给大家学习. case commandstr of 0:begin i1:=i; btn[i1]:=TButton.Create(Self); btn[i1].Parent:=form2; btn[i1].Visible:=false; btn[i1].Name:='btn'+inttostr(i1); btn[i1].Left:=Lefta; btn[i1].Width:=widtha; btn[i1].top:=topa; btn[i1].Height:=heighta; BTN[I1].Caption:=COMCAP; btn[i1].Show; end;