用Delphi简单实现创建控件数组

private

procedure EdtEnter(sender: TObject);

procedure EdtExit(sender: TObject);

end;

procedure Tfrm.EdtEnter(sender: TObject);
begin
TEdit(sender).Color:=clInfoBk;//当EDIT获得焦点时的颜色
end;

procedure Tfrm.EdtExit(sender: Tobject);
begin
TEdit(sender).Color:=clWindow;//失去焦点时的颜色
end;

//批量创建控件

var
i:integer;
begin
for i:=1 to 10 do
begin
   with  TEdit.Create(Self) do
   begin
     Name:='edt'+IntToStr(i);
     Parent:=self;
     Width:=75;
     Height:=24;
     Top:=i*32;//位置
     Left:=10;
     Text:='';
     OnEnter:=EdtEnter;
     OnExit:=EdtExit;
   end;
end;

//控件数组 

var
i:integer;
edt:array[0..9] of TEdit;
begin
for i:=1 to 10 do
begin
   edt[i]:=TEdit.Create(Self);
   with edt[i] do
   begin
   Name:='edt'+IntTostr(i);
   Parent:=Form1;
   Width:=75;
   Height:=24;
   Top:=i*32;//位置
   Left:=10;
end;
end;