如何修复TPageControl背景颜色而不丢失系统主题？

Question

在启用了主题的Delphi 2010应用程序中，我在一个带有clMoneyGreen背景的表单中有两个TPageControl（一个在另一个内）：

外部页面控件正确地使用父组件的颜色绘制其背景，然而内部页面控件使用clBtnFace（图像中的红色省略号）而不是其父控件（TTabSheet）的白色绘制其背景。有没有办法解决这个问题，而不将页面控件返回到它的Windows经典外观（丢失Windows主题）？

我在Google和Stack Overflow中找到的所有修复都涉及到OwnerDraw，这会导致页面控制失去主题。

我尝试使用一种处理WM_ERASEBKGND窗口消息的方法创建从TPageControl继承的新页面控件组件：

procedure TMyPageControl.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
  if Parent is TCustomPageControl then
  begin
    Brush.Color := clWhite;
    Windows.FillRect(Msg.dc, ClientRect, Brush.Handle);
    Msg.Result := 1;
  end
  else
    inherited;
end;

它描绘了背景白色，但在WM_ERASEBKGND（我猜测TWinControl的WM_PAINT方法）之后调用的其他一些方法在白色背景上重新绘制灰色。

注意：我正在研究这个，因为我正在从Delphi 7移植的大型应用程序上实现主题，这就是我试图通过派生组件解决这个问题的原因：我可以轻松搜索并替换所有207 TPageControl我的新课程出现了，但在其中一些课程后面放置面板会需要更多的时间。

Answer 1

这是Delphi 2010中的一个已知错误。您可以通过添加一个面板来解决它，该面板是最外层标签页的子项，并且是内页控件的父级。

我不知道为什么这样可以解决问题。我自己才发现了解决方法，因为我注意到在我的应用程序中，唯一嵌套的选项卡/页面控件正确呈现的是那些适当插入面板的控件。

如果我没记错的话，最新的Delphi版本中没有这个缺陷。