报表(26分)

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后在预揽的时候不能显示出来（程序执行正常）

帮帮兄弟吧，我只有这点分了，很着急

for i:=0 to form1.ListBox2.Count-1 do
begin
with Tqrlabel.Create([red]detailband1[/red]) do
begin
Name:='qrlabel'+inttostr(i);
Parent:=detailband1;
Top:=40;
Left:=100;
Caption:='asdf';
Visible:=true;
end
end;

var
rLabel: TQRLabel;
i,j,step: integer;



j := QuickReport1.ComponentCount-1;
for i := 0 to j do//释放
begin
if (QuickReport1.Components[0] is TQRLabel) then
(QuickReport1.Components[0] as TQRLabel).Free;
end;





step := DetailBand1.Width div form1.listbox2.count;
for i := 0 to Form1.ListBox2.Count - 1 do
begin
rLabel := TQRLabel.Create(QuickReport1);//注意,再一次打开为释放准备
rLabel.Parent := DetailBand1;
rLabel.Caption :='asdf';
rLabel.Left := 10+step*i;
rLabel.Top := 40;
rLabel.Show;
end;

加上几句：
rlabel.autosize := false;
rlabel.width = step - p;//p 是每个相邻label的间隔

为什么？？？哎！！！

多人接受答案了。