Criar TQRLabel (quick) no BeforePrint de uma Banda ?

Delphi

19/08/2005

Como posso criar um TQRLabel no BeforePrint de uma Banda?
O seguinte exemplo ocorre erro de Access Violation..
Alguém pode ajudar?
Grato

procedure TFRelat.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin

with TQRLabel.Create( QuickRep1 ) do
begin
Parent := QRBand1;
Top := 25;
Font.Size := 10;
Left := 5;
Width := 100;
Caption := ´teste´;
end;


Jrtupa2

Jrtupa2

Curtidas 0
POSTAR