Crear QRDbtext en tiempo de ejecucion

[Ade]

Hola donde pones ese codigo?
he leido que para crear componentes en tiempo de ejecucion hay q tener creado antes el quickrep con los tqrband, se pueden tener en modo diseño y despues crear en tiempo de ejecucion los TQRLabe y TQRExpr??
si es asi, como pongo el codigo? como un procedure?? y lo llamo directamente??

Saludos

[lbidi]

Hola, ade.
Si se puede, por lo menos a mi me deja .
Solo tengo creado el QR, y dos bandas, Titulo y Detalle.
Luego en el evento beforeprint asignas los QrDbtext y los QrLabels.
Aqui te dejo un ejemplo

Código Delphi [-]
      With TQRLabel.Create( Self ) do
      begin
          Name       := 'txPorc' + IntToStr(aListas[i]);
          AutoSize   := True;
          Font.Style := [fsBold];
          Height      := 17;
          Left         := nCol;
          Top          := 32;
          Caption     := ' % ' + IntToStr(aListas[i]);
          Parent      := Banda_Titulo;
      end;
      With TQRDBText.Create( Self ) do
      begin
          DataSet    := Rep_Margenes.DataSet;
          Name        := 'lbPorc' + IntToStr(aListas[i]);
          DataField   := '  % ' + IntToStr(aListas[i]);
          Mask         := '.0,0';
          Alignment   := taRightJustify;
          Font.Name  := 'Arial';
          Font.Height := -11;
          Font.Size    := 8;
          Parent       := Banda_Detalle;
          Top     := 1;
          Left           := nCol;
          AutoSize    := True;
      end;

Suerte y saludos.

[Ade]

gracias Ibidi, mañana pruebo y aviso, pensaba q beforeprint era despues de imprimir

[Ade]

Gracias Ibidi nuevamente, eso me funciona ya, solo que las etiquetas se solapan, unas a las otras, solo se ve completa la ultima.
En este hilo se comenta los mismo y he de conocer en pixeles el tamaño del campo, cosa que no se hacer, sabesis alguno??
tuviste este problema??

http://www.clubdelphi.com/foros/show...169#post161169

Saludos

[[Lepe]]

¿Has visto las posiblidades del qrCreateList?

Saludos