請教各位前輩，我在QuickRep中想要動態產生QRImage，若有五張圖檔則會分別以新的頁面來分開秀圖且圖置於DetailBand，目前所碰到的問題為預覽時卻看不到圖不知為何因？ 動態產生的code如下：  

 
var i: Integer;
    aQRI: Array of TQRImage;
    aQRL: Array of TQRLabel;   
begin
  SetLength(aQRI, iCount);
  SetLength(aQRL, iCount);
  for i:=0 to iCount-1 do
    begin
      aQRI[i] := TQRImage.Create(self);
      aQRI[i].Name := 'QRI' IntToStr(i);
      aQRI[i].AutoSize := False;
      aQRI[i].Visible := True;
      aQRI[i].Stretch := True;          aQRL[i] := TQRLabel.Create(self);
      aQRL[i].Name := 'QRL' IntToStr(i);          //QuickRep1.NewPage;
    end;
end;

------
我也在努力學習中，若有錯謬請見諒。

Hi adonis,    參考 http://delphi.ktop.com.tw/topic.php?topic_id=40425 試試以下寫法

var i: Integer;
    aQRI: Array of TQRImage;
    aQRL: Array of TQRLabel;   
begin
  SetLength(aQRI, iCount);
  SetLength(aQRL, iCount);
  for i:=0 to iCount-1 do
    begin
      aQRI[i] := TQRImage.Create(self);
      aQRI[i].Parent := Self;
      aQRI[i].Name := 'QRI' IntToStr(i);
      aQRI[i].AutoSize := False;
      aQRI[i].Visible := True;
      aQRI[i].Stretch := True;          aQRL[i] := TQRLabel.Create(self);
      aQRL[i].Parent := Self;
      aQRL[i].Name := 'QRL' IntToStr(i);          //QuickRep1.NewPage;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

結果還是一樣，當我嘗試此時直接列印時會出現--A component named QRI0 already exists. 不知是何因？請各位前輩幫幫忙，謝謝。

------
我也在努力學習中，若有錯謬請見諒。

Hi adonis,    這一篇你參考看看    http://delphi.ktop.com.tw/topic.php?topic_id=51967 用一個 QRImage 搭配 OnNeedData 來作 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

我做了一個簡單的測試，程式如下  

 
procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var QRI: TQRImage;
begin
  QRI := TQRImage.Create(self);
  QRI.Parent := self;
  QRI.AutoSize := True;
  QRI.Stretch :=False;
  QRI.Picture.LoadFromFile('D:\test\222.bmp');
  //QRImage1.Picture.LoadFromFile('D:\test\222.bmp');
end;

就簡單如上的程式碼就無法於預覽中秀圖，若只是單純的//...那一段的話又可以正常(所有環境都沒有改變)，若在其他環境裡單純的動態調用TImage時卻不會有問題，是否為QRImage的限制或哪裡出了問題，還是該元件有作業系統上的限制？我用的是Win2K Pro 的平台。

------
我也在努力學習中，若有錯謬請見諒。

Hi adonis,    Sorry !! 似乎有點錯誤，更正一下，你再試試    http://delphi.ktop.com.tw/topic.php?topic_id=37802

procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var QRI: TQRImage;
begin
  QRI := TQRImage.Create(self);
  QRI.Parent := Sender;
  QRI.AutoSize := True;
  QRI.Stretch :=False;
  QRI.Picture.LoadFromFile('D:\test\222.bmp');
  //QRImage1.Picture.LoadFromFile('D:\test\222.bmp');
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

會出現 存取衝突 的錯誤訊息，您那邊測不會嗎？

------
我也在努力學習中，若有錯謬請見諒。

我想我應該找到問題的徵結了-- 在於 BeforePrint & OnNeedData。不過還是要謝謝 Fishman 大大的熱心參與。日後再有相關問題還請您多多幫忙，謝謝。

------
我也在努力學習中，若有錯謬請見諒。