如何在一报表中动态创建QRLabel组建？？？高分请进……SOS

[youhe]

本人欲想在报表中动态创建QRlabel组建：

var label_temp:Tqrlabel;

……

label_temp:=tqrlabel.Create(self);
label_temp.Left:=170;
label_temp.top:=60;
label_temp.width:=100;
label_temp.caption:='label';

运行时Preview没出错，但qrlabel不显示，不知为何……，请各大虾相救，高分相送,谢谢

[yiyu]

关注！

[dragongong]

label_temp:= TQrlabel.Create(此处应填写Owner);
如:lable_temp:= TQrlabel.Create(QRBand1);

更好的办法:
with TQRDBText(rptMain.qrDetailBand.AddPrintable(TQRDBText)) do
begin
Top:= 4;
left:= 8;
height:= 23;
Dataset:= frmMain.Query;
DataField:= Fields[i].FieldName;
......
end;

[dragongong]

label_temp:= TQrlabel.Create(此处应填写Owner);
如:lable_temp:= TQrlabel.Create(QRBand1);

更好的办法:
with TQRDBText(rptMain.qrDetailBand.AddPrintable(TQRDBText)) do
begin
Top:= 4;
left:= 8;
height:= 23;
Dataset:= frmMain.Query;
DataField:= Fields[i].FieldName;
......

end;

[7030]

procedure setlb(sender :tobject)
var lb:tqrlabel;
begin
lb:=tqrlabel.create(nil);
lb.parent:=qrband1;
lb.top:=...
lb.left:=...
lb.width:=...
lb.height:=...
lb.caption:=...
end;

[youhe]

procedure Tplayer_report.qrband1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
with TQRLabel(player_report.qrband1.AddPrintable(TQRLabel)) do
begin
Top:= 4;
left:= 8;
height:= 23;
caption:='temp'
end;
end;
运行地址出错！
为什么不能在QRband1中用qrband1.AddPrintable(TQRLabel)动态创建Qrlabel!？？？！！

[Sayhigh]

InsertControl(label_temp);

[dragongong]

不要在BeforePrint事件中创建label,在Tplayer_report所在的unit中建立一个全局类型的过程
procedure PrintPlayerReport;
begin
with Tplaryer_report.create(nil) do
begin
with TQRLabel(qrband1.Addprintable(TQRLabel)) do
begin
top:= 4;
left:= 8;
height:= 23;
caption:= 'temp';
end;
end;
end