DelphiでのTPanelの配列が表示されない

Question

for y:=32 downto 1 do begin 
    for x := 1 to 16 do begin 
    PanelArray[x,y]:=TPanel.create(self); 
    PanelArray[x,y].parent:=self; 
    PanelArray[x,y].Color:=clBlack; 
    PanelArray[x,y].Enabled:=true; 
    PanelArray[x,y].Show; 
    PanelArray[x,y].BevelOuter:=bvNone; 
    PanelArray[x,y].OnClick:=Panel1Click; 
    PanelArray[x,y].Visible:=true; 
    PanelArray[x,y].width:=10; 
    PanelArray[x,y].height:=10; 
    PanelArray[x,y].Refresh; 
    end; 
end; 

Answer 1

すべて512個が作成されていますが、それらはただ見えません。 ParentBackgroundを「false」に設定する必要があります。

for y:=32 downto 1 do begin 
    for x := 1 to 16 do begin 
    PanelArray[x,y]:=TPanel.create(self); 

    /////////// 
    PanelArray[x,y].ParentBackground := false; 
    /////////// 

    PanelArray[x,y].parent:=self; 
    PanelArray[x,y].Color:=clBlack; 
    PanelArray[x,y].BevelOuter:=bvNone; 
    PanelArray[x,y].OnClick:=Panel1Click; 
    PanelArray[x,y].width:=10; 
    PanelArray[x,y].height:=10; 
    end; 
end; 

質問にあったさまざまな不要なコード行も削除しました。 ShowとRefreshを呼び出し、EnabledとVisibleと設定するなどです。