como criar um shape em tempo de execu��o

Question

Algu�m sabe como criar um shape em modo de execu��o no quick report, dinamicamente etc.

:cry: :cry: :cry: :cry:

Carnette · Answer

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;