如何动态创建控件

Question

例如动态创建TLable控件

Answer 1

label1:=tlabel.create(self);
label1.parent:=self;
label1.caption:='str'
label1.left:=.........

Answer 2

var
  kk:tlable;
begin
  kk:=tlabel.create(form1);
  kk.parent:=form1;
  kk.left:=0;
  kk.right:=0;
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
 tt:array of tlabel;
 i:integer;
begin
  for i:=1 to 10 do //可以动态生成不定的对象1 to 20 就是20个 
   begin
    setlength(tt,i);
    tt[i-1]:=tlabel.create(form1);
    tt[i-1].parent:=form1;
    tt[i-1].left:=10+i*20;
    tt[i-1].Top :=1;
    tt[i-1].width:=10;
    tt[i-1].caption:=inttostr(i);
    end;
end;

Answer 4

var
aaa:tpanel;
begin
aaa:=tpanel.create(self);
aaa.parent:=self;
aaa.caption:='you want strings';
aaa.free;
end;祝：身体健康，答案和分数同样重要！！

Answer 5

想继续问：如果创建的是button控件，怎么样去创建这个button的事件呢？
edit也是如此

Answer 6

produre youbuttonclick;
begin
showmessage(.........
end;var
button:tbutton;
begin
button:=tbutton.create(application);
button.caption:='asdf';
button.onclick:=youbuttonclick;
end;

Answer 7

想问一下.如果我想把Button控件,动态的创建在TPanel中,应如何