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

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

1 楼liyangyao970（纳兰容若）回复于 2003-12-02 20:13:06 得分 10

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;  
  如此即可以自己动态生成控件  
  Top

2 楼dh9450（荡尽尘埃）回复于 2003-12-02 20:19:30 得分 10

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;  
  没调试   现写的：）Top

相关问题

• 控件
• tedit
• edit
• begin

• 帖主：zzmicheal
• liyangyao970
• dh9450

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载