var
edit1:tedit
begin
edit1:=tedit.create;
edit1.parent:=form1;
edit1.left:=2;
edit1.top:=2;
edit1.free;
end;

解决方案 »

  1.   

    var
    edit1:tedit
    begin
    edit1:=tedit.create(self);
    edit1.parent:=form1;
    edit1.left:=2;
    edit1.top:=2;
    end; edit1.free; //这一句在edit用完之后再使用
      

  2.   

    procedute Form1.Button1Click(Sender: TObject);
    begin
      with TEdit1.Create(self) do
      begin
        edit1.parent := self;
        edit1.left := 2;
        edit1.top := 2;
        edit1.text := '是不是这样子呀!';
      end;
    end; 
      

  3.   

    function newedit(x,y,w,h,color:integer;form:tform;ppanel:Tpanel):Tedit;
    var e:Tedit;
    begin
      e:=tedit.create(form);
      e.parent:=ppanel;
      e.left:=x;e.top:=y;
      e.width/height/color.......
      result:=e;
    end;
      

  4.   

    //推荐:
    http://www.csdn.net/expert/topic/410/410056.shtm
      

  5.   

    var
    edit1:tedit
    begin
    edit1:=tedit.create(self);
    edit1.parent:=form1;
    edit1.left:=2;
    edit1.top:=2;
    end; edit1.free; //用完这后不FREE也不要紧,它的parent即From1关掉的时候自动会把它Free的!
      

  6.   

    定义一个控件数组,比如 a:array [1..50] of tedit;
    用循环,调用create
      

  7.   

    var
    eit1:array[1..50] of tedit;//定义它们
    i:integer;
    begin
    for i:=1 to 50 do//初始它们
    begin
    edit[i]:=tedit.create(self);
    edit[i].parent:=form1;
    edit[i].left:=i*5;
    edit[i].top:=i+1;
    end; 
    for i:=1 to 50 do//不用了。删了它
    edit[i].free; 
    end.//程序结束
      

  8.   

    edit[i]:=tedit.create(self);
    写成edit[i]:=tedit.create(nil);也行
      

  9.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs,comctrls;type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    const
      names:array[0..5,0..1] of string= (
        ('Rubble','Barney'),
        ('Michael','Johnson'),
        ('Bunny','Bugs'),
        ('Silver','HiHo'),
        ('Simpson','Bart'),
        ('Squirrel','Rocky'));
    var
     I:integer;
     NewColumn:TListColumn;
     ListItem:TListItem;
     ListView:TListView;
    begin
      ListView:=TListView.Create(Self);
      with ListView do
      begin
        Parent:=Self;
        Align:=alClient;
        ViewStyle:=vsReport;
        Newcolumn:=Columns.Add;
        NewColumn.Caption:='Last';
        NewColumn:=Columns.Add;
        NewColumn.Caption:='First';
        for I:=Low(Names) to High(Names) do
         begin
           ListItem:=Items.Add;
           ListItem.Caption:=Names[I][0];
           ListItem.SubItems.Add(Names[I][1]);
         end;
      end;end;end.