Añadiendo QRLabel a QuickReport en Tiempo de ejecucion

[R0M3R0]

Buenas Club.
el motivo de la presente es para compartir mi problema y para q me ayuden a solucionarlo
Miren tengo la necesidad de generar un reporte con quickreport 3.0.5 de delphi 5 y necesito colocar en tiempo de ejecucion los qrlabels que necesite para el mismo (q consten es sin el uso de Base de datos), manipular el lugar de su impresion y la informacion q imprima, Por farvor: ayudenme con cualquier sugerencia, o con un sencillo ejemplo Gracias de antemano
Saludos

[jcarteagaf]

Tengo un procedimiento que crea labels en un reporte de QuickReport, el código es el siguiente:


procedure CrearQRLabel(var xLabel : TQRLabel;qrReporte : TQuickRep;sCaption : String;
iLeft,iTop,iwidth : smallint;
bPadre : TQRBand;bSize : Boolean;
iAlinear : Smallint);
begin
xLabel := TQRLabel.Create(Application);
with xLabel do
begin
Caption := sCaption;
Autosize := bSize;
Left := iLeft;
Top := iTop;
Width := iWidth;
Parent := bPadre;
ParentReport := qrReporte;
Enabled := true;
visible := true;
ParentFont := true;
Transparent := true;
Height := Parent.Height;
case iAlinear of
0 : Alignment := taLeftJustify;
1 : Alignment := taRightJustify;
2 : Alignment := taCenter;
end;
end;
end;


Parametro 1,un control de tipo QRLabel
Parametro 2 El nombre de tu reporte
Parametro 3 El valor de la propiedad Caption
Parametro 4 La posición izquierda
Parametro 5 La Posicion superior
Parametro 6 El ancho del label
Parametro 7 La banda en la que aparecera el label
Parametro 8 Si es true, el label aumentara/reducira su tamaño segun el contenido
parametro 9 A que lado se alinea el contenido: 0=Izquierda, 1= Derecha,2=Centro

Un ejemplo de como llamar a este procedimiento es el siguiente:


var
xLabelCta : TQRLabel;

....
CrearQRLabel(xLabelCuenta,qrCuentas,'Nombre de la cuenta',
10,0,120,qrbTitulos,false,2);



Espero que te sirva

Saludos