为什么动态改变QRShape的高度时，会出现问题？(50分)

从基础的来，我贴上一段代码，你实验一下，下面代码需要一个Button，一个QuickReport，里面设置了一个DetailBand，上面放置了一个QrShape.，其Shape属性为qrsVertLine
var
PrintCount: Integer;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
PrintCount := 0;
end;

procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
if PrintCount < 5 then
begin
MoreData := True;
DetailBand1.Height := PrintCount * 80;
QRShape1.Height := PrintCount * 40;
PrintCount := PrintCount + 1;
end
else
MoreData := False;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

非常抱歉，可能是我太笨，还是不行！[]

你那边测试成功了?

我要出去一下
你如果有什么办法的话就发到这里
非常感谢！！！

这个你都不行？？？
不会吧？QuickReport放到上面，只设置增加一个DetailBand，其他什么操作都不要有！
尤其是不要设置DataSet！