为何动态创建的TPanel子面板无法显示自定义颜色？

你的代码存在属性设置顺序不当的问题，这是导致子面板颜色被父面板覆盖的核心原因。

在VCL框架中，当你为控件设置Parent属性后，父控件的部分样式属性会自动传递给子控件——哪怕你之前已经设置了ParentColor=false，这个操作也可能被父控件的属性继承逻辑覆盖，导致子面板最终还是沿用父面板的clLime颜色。

修正方案 #

方案1：调整设置顺序（推荐） #

先绑定父容器，再关闭颜色继承并设置自身颜色：

int IntSize = SecondsBetween( CurrInterrup->TerminoInt, CurrInterrup->InicioInt );
int dura = SecondsBetween( Indisp->DtHoraFim, Indisp->DtHoraIni);
int left = SecondsBetween( Indisp->DtHoraIni, CurrInterrup->InicioInt);
int width = RoundTo(((double)dura /(double) IntSize) *(double) PnGreen->Width, 0);
left  = RoundTo(((double)left/(double)IntSize) * (double)PnGreen->Width, 0);

TPanel *pn = new TPanel(this);
pn->Parent = PnGreen; // 先绑定父容器
pn->ParentColor = false; // 关闭父颜色继承
pn->BorderStyle = bsSingle;
pn->BevelKind = bkSoft;
pn->Color = clRed; // 设置目标颜色
pn->Left = left;
pn->Width = width;
pn->Height = PnGreen->Height -5;
pn->Update();

方案2：追加属性重置 #

如果要保留原代码顺序，在设置Parent后重新设置一次ParentColor和Color：

int IntSize = SecondsBetween( CurrInterrup->TerminoInt, CurrInterrup->InicioInt );
int dura = SecondsBetween( Indisp->DtHoraFim, Indisp->DtHoraIni);
int left = SecondsBetween( Indisp->DtHoraIni, CurrInterrup->InicioInt);
int width = RoundTo(((double)dura /(double) IntSize) *(double) PnGreen->Width, 0);
left  = RoundTo(((double)left/(double)IntSize) * (double)PnGreen->Width, 0);

TPanel *pn = new TPanel(this);
pn->ParentColor = false;
pn->BorderStyle = bsSingle;
pn->BevelKind = bkSoft;
pn->Color = clRed;
pn->Left = left;
pn->Width = width;
pn->Height = PnGreen->Height -5;
pn->Parent = PnGreen; 
pn->ParentColor = false; // 重新关闭继承
pn->Color = clRed;       // 重新设置颜色
pn->Update();

额外排查点 #

• 确认父面板PnGreen未开启ParentBackground等可能强制子控件继承样式的属性
• 检查width计算结果是否大于0，避免子面板因宽度过窄无法显示颜色
• 确认子面板未被其他控件遮挡

内容的提问来源于stack exchange，提问作者Jayme Jeffman