//动态创建DBEdit Function CreateDBEdit(i:Integer):Integer; Var DBEdit:Array[0..20] Of TDBEdit; begin For i:=0 To 20 Do Begin DBEdit[i]:=TDBEdit.Create(Nil); DBEdit[i].Top:=(i+1)*20; DBEdit[i].Left:=10; DBEdit[i].Parent:=Self; End; Result:=i; End; 系统提示没有定义 Self;郁闷!望高手指点啊!呵呵!
----------------------------------------------
『惠安人才网』 www.harcw.net