Acomodo de Datos en Qreport

[[Lepe]]

Código Delphi [-]
unit reporte_runtime;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  QuickRpt, ExtCtrls,QRCTRLS, db;

type
  TForm1 = class(TForm)
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
  lastleft, i : integer;
  c : TQRlabel;

begin
  lastleft:= 10;
  for i:= 0 to 10 do
  begin
    c := tQRlabel.Create(QRband1); // c no estaba creado, ahora si.
   // antes quien debía destruir el label era el Form porque usabas Self,
  // ahora quien lo destruye es la banda, que es donde estará el control.


    c.Top := 10;
    c.Caption := 'label' + inttostr(i);
    c.Width := 50;
    c.Left := lastleft+ 5+ FontWidth(c.Font,c.Caption); // para que se vean todas
    lastleft := c.Left;
//  c.Name := 'label'; // no tenemos por qué asignarlo
    c.parent := QRBand1;
    c.Enabled := true; // si está a false no se verá en pantalla.
  end;
  quickrep1.Preview;
// no tenemos que liberar nada, el QRBand se encargará de ello.
end;

end.

Probado y funcionando.

saludos