动态创建问题

Question

一个一个的赋值不就得了。
var
Label1: TLabel;
Label1 := TLabel.Create(Owner);
try
  Label1.Caption := 
  Label1.Left :=
  Label1.top := 
finally
  Label1.Free;
 

Answer 1

label1:=tlabel.create(form1);
label1.parent:=form1;
label1.setbounds(100,100,100,40);

Answer 2

var
   l:Tlabel;
begin
    l:=Tlabel.Create(self);
    l.parent:=form1;
    l.Caption:='asdf';
    l.name:='df';
    l.top:=34;
    l.left:=45;
end;
保证好使!

Answer 3

那你试试这样吧：
   var
     TLab:TLabel;
  begin
     TLab:=TLabel.Create(self);
     TLab.Parent:=Form1;
     TLab.Caption:=;
     TLab.Left:=;
     TLab.Top:=;
     TLab.Height:=;
     ...
  end;

Answer 4

lizhenjia(暴雪):
   别这么快嘛!!!

Answer 5

1.在Form的Public中定义TEdit控件 
　　Edit1:TEdit; 
非必须要定义，例如要在程序中动态生成的控件个数和名称是不固定的，  
就无法定义
2.在需要生成的地方加入以下代码如一个按钮的ONCLICK事件里： 
　　Edit1:=TEdit.Create(Self); 
　　Edit1.Parent:=Form1;
这两句一定要有，第一句指明要创建该对象，创建的对象名称为Edit1 ；
第二句也要有，指出创建对象的容器，如果你在一个FORM的PANEL上创建该对象则该对象的容器就是那个PANEL。
　　Edit1.Left:=20; 
　　Edit1.Top :=20; 
　　Edit1.Text :='Edit1 Text'; 
这些属性你可以选择性输入，其实都有默认值如果你不指定的话，具体默认值，不同的组件不一样的，我没详细研究过。3.使用完毕后，释放分配的资源，如可以加在窗体释放语句之前或其他地方。
　　if  Assigned(Edit1) then Edit1.Free; 
　　这句很重要，释放资源。
就这么多，能明白吗？