关于动态创建控件

Question

有哪位老兄帮我找一些有关动态创建控件的源码，让我学习一下，能讲一下就更好了！谢了
E-mail:[email protected]

Answer 1

var
   E : TEdit ;
   
   E := TEdit.Create(Self) ;
   with E do
   begin 
     Top := 20 ;
     Left := 20 ;
     Height := 20 ;
     Width := 60 ;
     Text := '1234' ;
     Parent := Self ;
   end ;

Answer 2

procedure TForm1.OnClick(Sender: TObject);
begin
showmessage('给分!');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  haerbin982:array [1..10] of Tbutton;
  i:integer;
begin
  for i:=1 to 10 do
  begin
    haerbin982[i]:=Tbutton.Create(self);
    haerbin982[i].Parent:=self;
    haerbin982[i].Left:=50;
    haerbin982[i].Top:=10*i;
    haerbin982[i].OnClick:=OnClick;
   haerbin982[i].Visible:=true;
    haerbin982[i].caption:='haerbin982'+inttostr(i);
  end;
end;

Answer 3

楼上的就给了个最简单的动态创建的Button