报表(26分)

  • 主题发起人 主题发起人 zikao419
  • 开始时间 开始时间
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后在预揽的时候不能显示出来(程序执行正常)
 
帮帮兄弟吧,我只有这点分了,很着急
 
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的间隔
 
为什么???哎!!!
 
多人接受答案了。
 
后退
顶部