Kompontenten dynamisch

[himitsu]

Wenn die Label's automatisch ausgerichtet werden, könntest du es ja mal so versuchen:

Delphi-Quellcode:

Procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep; Var PrintReport: Boolean); 
  Var i: Integer; 

  Begin 
    For i := 0 to Form1.DBGrid1.Columns.Count - 1 do 
      If TQRLabel(FindComponent('RLabel_' + IntToStr(i))) = nil Then Begin 
        Lab := TQRLabel.Create(Self); 
{}      Lab.AutoSize := True;
        Lab.Font.Style := [fsBold]; 
        Lab.Parent := QuickReport3.ColumnHeaderBand1; 
        Lab.Name := 'RLabel_' + IntToStr(i); 
        Lab.AlignToBand := True; 
        Lab.Caption := Form1.DBGrid1.Columns[i].Title.Caption; 
{}      Lab.AutoSize := False;
{}      Lab.Width := Lab.Width + 50{Abstand};
      End; 
  End;

Oder du legst eine andere, nicht sichtbare Komponente, als Abstandshalter, dazwischen.

(Angaben ohne Gewähr)


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif