delphi - 当 TabPosition 为 tpLeft 时，TPageControl 选项卡显示错误的颜色和样式

Question

首先，我制作了一个新表格并制作了它的颜色clWhite。然后，我加入了一个TPageControl并添加了 2 个新页面。一切都很好，一切的背景都是白色的（不活动的标签页眉除外）。但是，然后在页面控件上，我将属性更改TabPosition为tpLeft并且选项卡标题更改为默认窗口颜色，而其他所有内容都保持为白色。

TabPosition = tpTop

TabPosition = tpLeft

当标签位于左侧时，有什么方法可以使其正确显示？

Answer 1

内置控件中没有任何内容可让您更改此行为。事实上，您观察到的行为是底层 Windows 控件的设计行为。您可以通过使用该样式创建原始 Win32SysTabControl32控件来轻松验证这一点。TCS_VERTICAL所以控件已经正确显示。

如果你真的想改变外观，你需要自己绘制标签。