用的时候创建,不用是销毁,var
edit: tedit;
begin
  edit:=tedit.create(self);
  edit.parent:=self;
end;

解决方案 »

  1.   

    这还用问,当然是直接用API啦
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
         a:array[0..100] of tedit;
         i:integer;
    begin
         for i:=0 to 100 do
           begin
             a[i]:=tedit.Create(self);
             a[i].Parent :=form1;
             a[i].Left :=100;
             a[i].Height :=30;
             a[i].Top :=i*40;
             a[i].Show ;
           end;
    end;
      

  3.   

    to surfguy(冲浪小子)
    俺也是这样做的啊算了,结账了
    失望,去大富翁了