DELPHI 动态 创建和释放 多个 EDIT 控件

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

 

type

  TForm1 = class(TForm)

    pnl1: TPanel;

    btn1: TButton;

    btn2: TButton;

    procedure btn1Click(Sender: TObject);

    procedure btn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  editm:array of tedit;

 

implementation

 

{$R *.dfm}

 

//动态创建EDIT控件

procedure TForm1.btn1Click(Sender: TObject);

var

    i,d,j:integer;

begin

d:=0;

j:=3;

setlength(editm,j);

  for   i:=0   to   j-1   do

  begin

    editm[i]:=tedit.Create(self);

    editm[i].Parent:=pnl1;

    editm[i].Width:=120;

    editm[i].Height:=20;

    editm[i].Left:=0;

    editm[i].Top:=0+d;

    editm[i].Name:= 'edit'+inttostr(i);

    editm[i].Text:= 'edit'+inttostr(i);

    editm[i].Visible:=true;

    d:=d+20;

  end;

end;

//销毁创建的EDIT控件

procedure TForm1.btn2Click(Sender: TObject);

var

  i:Integer;

begin

for i:=0 to 2 do

begin

editm[i].free;

end;

end;

 

end.