Delphi 如何更改 TabControl 中活动 TAB 的颜色
How to change the color of active TAB in a TabControl, in Delphi
如何更改 TabControl（在 FireMonkey 上）中活动 TAB 的颜色，如下所示？
有两种方法可以做到这一点。
1) 第一个选项是您可以为 TabControl[=60= 创建 CustomStyle ] 来自 TStyleBook（样式设计师）。
然后您可以添加您想要在自定义设计中使用的任何内容（TRectangle 推荐用于许多形状和颜色）。
2) 我更喜欢使用第二种方式。将 TTabControl 的 TabPosition 设置为 None，然后在你的位置添加一个TGridPanelLayout想要在您的表单中添加选项卡。之后，将 TGridPanelLayout 的列数设置为选项卡数。
现在您需要知道每个选项卡框应该相同。为第一列放置 TRectangle 然后将 Align 设置为客户端（所有颜色和内部组件都取决于您的选择）。
确保你的 TRectangle 组件 HitTest参数是true和内部组件'HitTest参数是 false。
您还可以处理 OnClick 事件中的选项卡选择。将每个 TRectangle（对于选项卡）设置为一个 Tag，然后将所有选项卡连接到同一个 OnClick 事件。然后你得到发件人的标签并从你的标签中设置你的TabControl1.ActiveTab。
如何更改 TabControl（在 FireMonkey 上）中活动 TAB 的颜色，如下所示？
有两种方法可以做到这一点。
1) 第一个选项是您可以为 TabControl[=60= 创建 CustomStyle ] 来自 TStyleBook（样式设计师）。
然后您可以添加您想要在自定义设计中使用的任何内容（TRectangle 推荐用于许多形状和颜色）。
2) 我更喜欢使用第二种方式。将 TTabControl 的 TabPosition 设置为 None，然后在你的位置添加一个TGridPanelLayout想要在您的表单中添加选项卡。之后，将 TGridPanelLayout 的列数设置为选项卡数。
现在您需要知道每个选项卡框应该相同。为第一列放置 TRectangle 然后将 Align 设置为客户端（所有颜色和内部组件都取决于您的选择）。
确保你的 TRectangle 组件 HitTest参数是true和内部组件'HitTest参数是 false。
您还可以处理 OnClick 事件中的选项卡选择。将每个 TRectangle（对于选项卡）设置为一个 Tag，然后将所有选项卡连接到同一个 OnClick 事件。然后你得到发件人的标签并从你的标签中设置你的TabControl1.ActiveTab。