//声明组件数组的个数
//估计一下大概要用多少个,设一个上限,使用时判断一下
//本人也是刚学delphi,所以没有多少技术含量
Editx:array[1..10] of TEdit;
在OnShow里
for i:=1 to 10do
begin
Editx:=TEdit.Create(Application);
Editx.parent:=self;
end;
间隔位置可用:
for i:=1 to 10do
begin
Editx.Top:=xxxx;
Editx.left:=xxxx;
Editx.width:=xxxx;
Editx.height:=xxxx;
end;
xxxx可以是一个常数,也可以是一个以i有关的变量
var
Edit: array[1..10] of TEdit;
i : integer;
begin
for i := 1 to Length(Edit)do
begin
Edit := TEdit.Create(self);
Edit.Parent := self;
Edit.Text := 'Edit' + IntToStr(i);
Edit.Left := 300;
if i = 1 then
Edit.Top := 10
else
Edit.Top := Edit[i - 1].Top + Edit[i - 1].Height + 5;
end;
end;
