请问：如何在程序里动态加入n个控件？

Question

就是说不用我一个一个地拖到form中，我就可以一次加入多个控件，
比如，我的程序需要15个TShape，或20个TEdit，或N个TImage（n是变量）？
而我在编程时可直接控制这若干个控件的位置，显示内容等。

Answer 1

Edit:array[1..20]of TEdit;
begin
  for i:=1 to 20 do
  with Edit[i] do
  begin
    Edit[i]:=TEdit.create(self);
    text:=inttostr(i);
    top:=...;
    left:=...;
    height:=...;
    width:=...
  end;
如此即可以自己动态生成控件

Answer 2

var e:array of tedit;
i,n:integer;
begin
n:=strtoint(edit1.text);//输你的N
setlength(e,n);//定义数组长度
for i:=0 to n do
 begin
  e[i]:=tedit.Create(application);
  e[i].Parent:=frm1;
  e[i].left:=什么什么；
。。
 end;
end;
没调试 现写的：）