Kompontenten dynamisch

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke.gif,

Delphi-Quellcode:

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

  Begin 
{}  T := 30;  {Position des obersten Labels}
    For i := 0 to Form1.DBGrid1.Columns.Count - 1 do
      If TQRLabel(FindComponent('RLabel_' + IntToStr(i))) = nil Then Begin
        Lab := TQRLabel.Create(Self);
        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.Left := 10;  {Position von Links}
{}      Lab.Top := T;
{}      Inc(T, Lab.Height + 20{Abstand});
      End;
  End;

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