在Delphi中如何创建控件数组
1个回答
展开全部
for i:= 0 to count-1 do
begin
BtnArray[i]:=TBuuton.Create(YourForm);
BtnArray[i].Parent:=YourForm;
......
end;
在类里写个 procedure MyBtnClick(sender:TObject)
BtnArray[i].OnClick:=MyBtnClick;
begin
BtnArray[i]:=TBuuton.Create(YourForm);
BtnArray[i].Parent:=YourForm;
......
end;
在类里写个 procedure MyBtnClick(sender:TObject)
BtnArray[i].OnClick:=MyBtnClick;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
