DELPHI 数组控件

来源:百度知道 编辑:UC知道 时间:2024/06/25 06:10:54
for i:=1 to 5 do
begin
Edit[i]:=TEdit.Create(Application.MainForm);
Edit[i].Text:='11111';
END;
我定义了5个Edit数组 可以显示控件但就是显示不出来 Edit[i].Text:='11111' 为什么阿

var
edit : array[0..4] of TEdit;
i : integer;
begin
for i:=low(edit) to high(edit) do
begin
edit[i]:=TEdit.Create(Application.MainForm);
edit[i].Parent := self;
edit[i].Text:='11111';
edit[i].Top := i * 30+20;
edit[i].Left := 100;
edit[i].Width := 50+5*i;
edit[i].Height := 15 + i*3 ;
edit[i].AutoSize := False;
end;
end;

for i:=1 to 5 do
begin
Edit[i]:=TEdit.Create(Application.MainForm);
Edit[i].Parent := Form1;
Edit[i].Top := i * 30;
Edit[i].Text:='11111';
END;

var
edit: array[0.. 4] of TEDit;
i, t: integer;
begin
t := 0;
for i := low(edit) to high(edit) do
begin
edit[i] := tedit.create(Self);
edit[i].Parent := self;
edit[i].text := '1111';
edit[i].Top := edit[i].Top + t;
t := t+ edit[i].Height;