動態TImage在動態TPanel的？

Question

好的，我試圖在運行時在TScrollBox表面上創建一些自定義數量的TPanel，就像您可以在以下圖像中看到的一樣。

爲了得到這個我用下面的代碼，並且工作正常。

var 
    pan: array of TPanel; 
    maxp, i, x, y: Integer; 

... 

maxp := 10; 
SetLength(pan, maxp); 

for i := 1 to maxp do begin 
    // x is correct value; doesn't cause problem 
    // y is correct value; doesn't cause problem 
    pan[i-1] := TPanel.Create(form1); 
    with pan[i-1] do begin 
    Width := 100; 
    Height := 150; 
    Top := x * 151; 
    Left := y * 101; 
    Parent := ScrollBox1; 
    end; 
    end; 

現在，我有問題放的TImage對象在每TPanel與相同索引（IMG [0] - >泛[0]，IMG [1] - >泛[1]，等等）。請看下面的圖片：

使用相同的邏輯，我試圖創建的TImage的，但瓦特/沒有成功。

我正在使用此代碼，並不能找出什麼是錯的。它對我來說看起來很簡單，但它不會提供預期的效果。

var 
    pan: array of TPanel; 
    img: array of TImage; 
    maxp, i, x, y: Integer; 

... 

maxp := 10; 
SetLength(pan, maxp); 
SetLength(img, maxp); 

for i := 1 to maxp do begin 
    // x is correct value; doesn't cause problem 
    // y is correct value; doesn't cause problem 
    pan[i-1] := TPanel.Create(form1); 
    with pan[i-1] do begin 
    Width := 100; 
    Height := 150; 
    Top := x * 151; 
    Left := y * 101; 
    Parent := ScrollBox1; 
    end; 
    img[i-1] := TImage.Create(form1); 
    with img[i-1] do begin 
    Width := 98; 
    Left := 1; 
    Height := 148; 
    Top := 1; 
    // in original code next line had img[0]. which caused problem 
    Picture.LoadFromFile('some_image_file'); 
    Parent := pan[i-1]; 
    end; 
    end; 

不知何故，它將所有TImage對象放置在第一個TPanel（pan [0]）的相同位置。這對我來說很困惑，因爲它說Parent := pan[i-1];，但由於某種原因，它總是將TImage放在pan [0]中。我已經嘗試過使用斷點來查看每個for循環週期後發生了什麼（最後添加了Application.ProcessMessages），它確實創建了10個不同的映像，但將它們放到了pan [0]上。當然，最後它只顯示加載到pan [0]中的最後一個圖像。

我的問題是如何爲每個動態TPanel製作一個動態TImage（具有相同的數組索引）？

已解決！

Answer 1

啊，我發現它...我怎麼瞎我真的...

要獲得自動完成在Delphi中，我已經在前面Picture.LoadFromFile()使用img[0]。然後，顯然我忘了將它從代碼中刪除，並且從小時以前，'前綴'留在那裏使所有圖像加載到相同的img [0]。我確定Parent或Pos/Size屬性有問題，並且一直專注於這些不關心這個問題的東西。

其實我有

with img[i-1] do begin 
    Width := 98; 
    Left := 1; 
    Height := 148; 
    Top := 1; 
    img[0].Picture.LoadFromFile('some_image_file'); 
    Parent := pan[i-1]; 
    end; 

但不知何故，我已刪除的img [0]部分，同時發佈了這個問題，並沒有看到它在我的Delphi代碼的問題。很明顯，當我被格式化這段代碼，我去掉了一些部件，這讓這裏不可能:(

實在不好意思回答我的問題打擾你們，這是我的壞

Answer 2

您設置了Height兩次，並沒有Left，所以它似乎。

with pan[i-1] do begin 
    Width := 100; 
    Height := 150; 
    Top := x * 151; 
    Height := y * 101; 
    Parent := ScrollBox1; 
end; 

Answer 3

和建議的話 - 擺脫with塊，它們看起來似乎是無辜和簡單的，但從長遠來看，它們只能用於編寫難以排除故障的潦草代碼。如果您使用顯式變量引用，那麼這個問題在第一次就不會發生地點。

var 
  Panels: array of TPanel; 
    Panel: TPanel; 
  Images: array of TImage; 
    Image: TImage; 
  maxp, i, x, y: Integer; 

... 

maxp := 10; 
SetLength(Panels, maxp); 
SetLength(Images, maxp); 

for i := 1 to maxp do begin 
  Panel := TPanel.Create(form1); 
    Panels[i-1] := Panel; 
    Panel.Parent := ScrollBox1; 
  Panel.SetBounds(...); 
  Image := TImage.Create(form1); 
    Images[i-1] := Image; 
    Image.Parent := Panel; 
    Image.SetBounds(...); 
  Image.Picture.LoadFromFile('some_image_file'); 
end;