怎样在代码中进行代码添加呢！急！！

Question

请问各位：用哪个命令可以添加组件。如button按钮组件。一般是用鼠标在组件面板中点击button组件，然后在窗体中点击后就算添加成功。但怎样在代码中进行代码添加呢？如i自加一次，button组件就自动添加一次。谢谢各位。

Answer 1

procedure CreateBtn;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var I:integer;
begin
    for I:=1 to 10 do
    begin
        CreateBtn;
    end;
end;procedure CreateBtn;
var NewBtn:TButton;
begin
    NewBtn:=TButton.Create(self);
    NewBtn.Left:=100;
    NewBtn.Top:=100;
end;end.

Answer 2

我试了一下，通不过的。问题出在NewBtn:=TButton.Create(self);的self上

Answer 3

主要是属性Parent  
NewBtn[i].Parent:=From1 
  procedure CreateBtn(iNum:Integer);
var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);begin
  CreateBtn(10) ;
end;
procedure TForm1.CreateBtn(iNum:Integer);
var
  i:Integer ;
  NewBtn:array of TBitBtn;
begin
  setlength(NewBtn,iNum) ;
  for i:=0 to iNum-1 do
  begin
    NewBtn[i]:= TBitBtn.Create(self) ;
    NewBtn[i].Top :=i*23+30 ;
    NewBtn[i].Height :=20 ;
    NewBtn[i].Width :=100 ;
    NewBtn[i].Parent :=Form1 ;
  end ;
end ;
end.