在Delphi中如何创建控件数组?for i:= 0 to count-1 do beginBtnArray[i]:=TBuuton.Create(YourForm)BtnArray[i].Parent:=YourForm......end在类里写个 procedure MyBtnClick(sender:TObject)BtnArray[i].OnClick:=MyBtnClick