Fórum como criar um shape em tempo de execução #138771

Por sus insistencia voce merece...no evento BEFOREPRINT do quireport voce coloca o seguinte

procedure TQrp_Form2.QuickRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var
qShape : TQrShape;
begin
qShape := TQrShape.Create(self);
qShape.Parent := QRBand1;
qShape.Top := 2;
qShape.Left := 2;
qShape.Width := 20;
qShape.Height :=20;


end;