delphi - 如何为动态创建的面板着色？

Question

我在设计时声明了一个面板 ToolStatusPanel2，并希望添加 10 个代表状态的面板(以颜色显示)。

现在，我的主窗体声明

 ToolOnlineStatusPanel : Array[0..Pred(NUM_TOOLS)] of TPanel;

并且我的FormCreate想要将它们设置为clRed的默认颜色

for i:= 0 to Pred(NUM_TOOLS) do
begin
  ToolOnlineStatusPanel[i] := TPanel.Create(ToolStatusPanel2);
  ToolOnlineStatusPanel[i].Parent := ToolStatusPanel2;
  ToolOnlineStatusPanel[i].Height := 16;
  ToolOnlineStatusPanel[i].Width := 16;
  ToolOnlineStatusPanel[i].Top := 8 + (i * (16 + 8));
  ToolOnlineStatusPanel[i].Left := 8;
  ToolOnlineStatusPanel[i].Color := clRed;
end;

但这些子面板始终具有与其父面板相同的颜色，即使我更改它 - 也不会是红色。

显然我忽略了一些相当简单的事情。它是什么？谢谢

Answer 1

设置ParentBackground为假。