大家好,我是新人,請大家多多指教. 我在detail band 中放了qrshape來做垂直線. 因為我要畫表格. 但因為每個detail band的高度都不一樣. 所以qrshape的高度就太短. 我想將它的高度設定成跟detail band 一樣. 所以在detailband.beforeprint和afterprint中加入 qrshape.height:=qrband.height. 結果還是一樣. 請問有沒有方法做到呢?

在form oncreate時assigned就可以了 如下：     

procedure TForm1.FormCreate(Sender: TObject);
begin
  QRShape1.height := DetailBand1.height;
end;
 

form的 onactivate事件也可以

hi,chimera 我沒有用到tform. 有沒有其它方法.