delphi 动态创建的checkbox不能在groupbox里显示
代码如下，动态创建checkbox，为什么不能显示？vartmp0:arrayofTcheckbox;j:integer;tmp1:arrayofstring;begin...
代码如下，动态创建checkbox，为什么不能显示？
var
tmp0:array of Tcheckbox;
j:integer;
tmp1:array of string;
begin
setlength(tmp1,4);
setlength(tmp0,length(tmp1));
for j:=0 to length(tmp1)-1 do
begin
tmp0[j]:=Tcheckbox.Create(self);
tmp0[j].Parent:=groupbox1;
tmp0[j].Top:=groupbox1.Top+j*30+5;
tmp0[j].Left:=groupbox1.Left+j*30+5;
tmp0[j].Caption :=inttostr(j);
tmp0[j].Show;
end;
end; 展开
var
tmp0:array of Tcheckbox;
j:integer;
tmp1:array of string;
begin
setlength(tmp1,4);
setlength(tmp0,length(tmp1));
for j:=0 to length(tmp1)-1 do
begin
tmp0[j]:=Tcheckbox.Create(self);
tmp0[j].Parent:=groupbox1;
tmp0[j].Top:=groupbox1.Top+j*30+5;
tmp0[j].Left:=groupbox1.Left+j*30+5;
tmp0[j].Caption :=inttostr(j);
tmp0[j].Show;
end;
end; 展开
2个回答
展开全部
我执行你的代码没有问题，是不是你的groupbox1尺寸太小了
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
