Z
zikao419
Unregistered / Unconfirmed
GUEST, unregistred user!
for i:=0 to form1.ListBox2.Count-1 do
begin
name:='qrlabel'+inttostr(i);
Tqrlabel.Create(Owner).Name:=name;
tqrlabel.create(owner).Parent:=detailband1;
tqrlabel.create(Owner).Top:=40;
tqrlabel.create(Owner).Left:=100;
tqrlabel.create(Owner).Caption:='asdf';
tqrlabel.create(Owner).Visible:=true;
end;
大虾帮帮忙吧,我动态创建Tqrlabel后在预揽的时候不能显示出来(程序执行正常)
begin
name:='qrlabel'+inttostr(i);
Tqrlabel.Create(Owner).Name:=name;
tqrlabel.create(owner).Parent:=detailband1;
tqrlabel.create(Owner).Top:=40;
tqrlabel.create(Owner).Left:=100;
tqrlabel.create(Owner).Caption:='asdf';
tqrlabel.create(Owner).Visible:=true;
end;
大虾帮帮忙吧,我动态创建Tqrlabel后在预揽的时候不能显示出来(程序执行正常)