[Delphi] Quickreport

[Verwijderd]

Hallo,
ik wel voor mijn programmatje een printje uitdraaien, dat doe ik nu via een Quickreport en maak GEEN gebruik van een database/source.

Ik wil 4 pagina's hebben, dus zet 4x de MoreData value op true in de onNeedData event.

Alleen als ik nu mijn label van een waarde wil voorzien gaat het mis.

Op de OnPrint event van de label kijk ik op welke pagina we zitten.
Maar ik kan de waarde wel zetten, maar als ik mijn Quickreport dan preview dan staat de waarde er niet. Dan staat er gewoon de waarde die ik op design time erin heb gezit. Terwijl ik tijdens het debuggen de gezette waarde wel zie staan.

Dit is ff een voorbeeld stukje code de een label van het pagina nummer moet voorzien, maar de waardes komen niet op de pagina's te staan.

code:

procedure TfmPrint.qrlNaamPrint(sender: TObject; var Value: String);
begin
  qrlNaam.Caption := intToStr(pagina);
end;

Wat doe ik fout ?

[Verwijderd]

ik ben er nu al achter hoe ik de waarde moet zetten.

Alleen heb ik nu het probleem van dat ik en 1 Label meerdere regels wil hebben.
Nu heb ik in de onPrint event van het label een for loopje staan die regels toevoegd,

maar het als ik een #13#10 of #13 dan maakt ie geen nieuwe regel, maar een nieuwe pagina. Op een #10 reageerd ie met niks.

Hoe kan ik dan meerdere regels in een label hebben ?

[Verwijderd]

een label is niet de juiste manier voor meerdere regels daar moet je gewoon een memo of iets dergelijks voor nemen.

[Verwijderd]

Maar een TQRMemo heeft geen OnPrint event

[Verwijderd]

Ik heb nu toch een aantan Memo's opmijn quickreport gezet,
maar het probleem is, als ik Lines.Add() uitvoer, dan maakt ie een pagina aan ipv een regel.