Das hier ist meine Schleife:
Delphi-Quellcode:
procedure TQuickReport3.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var i: Integer;
begin
for i := 0 to Form1.DBGrid1.Columns.Count-1 do begin
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;
end;
end;
end;
Wie muss ich das denn jetzt einbauen? Also Top iss mal nebensächlich, da sie ja auf einem QuickReport-Band liegen, also müsste ich nur noch Left ändern, was ich aber nicht schaffe. Hat jemand nen Ansatz dafür?