//动态创建DBEdit 我不知道这段代码有没有错??? Function CreateDBEdit(i:Integer):Integer; Var DBEdit:Array[0..20] Of TDBEdit; Self:TDBEdit; begin For i:=1 To i Do Begin DBEdit[i]:=TDBEdit.Create(Nil); DBEdit[i].Top:=(i+1)*30; DBEdit[i].Left:=30; DBEdit[i].Parent:=Self; // 主要是这句! End; Result:=i; End;