Criar TQRLabel (quick) no BeforePrint de uma Banda ?
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;
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
Curtidas 0