如何在 Delphi 中更改 TabControl 中活动 TAB 的颜色

Question

如何更改 TabControl（在 FireMonkey 上）中活动 TAB 的颜色，如下所示？

Answer 1

有两种方法可以实现这一点。

1）第一个选项是您可以从TStyleBook （样式设计器） 为TabControl创建CustomStyle。

然后您可以添加您想要在自定义设计中使用的任何内容（对于许多形状和颜色，建议使用TRectangle ）。

2）我更喜欢使用第二种方式。将TTabControl的TabPosition设置为None，然后将TGridPanelLayout添加到表单中要添加选项卡的位置。之后，将 TGridPanelLayout 的列数设置为选项卡数。

现在您需要知道每个选项卡框应该相同。为第一列拖放一个TRectangle，然后设置“对齐到客户端”（所有颜色和内部组件取决于您的选择）。

确保您的TRectangle组件HitTest参数为true且内部组件的HitTest参数为false。

您还可以处理OnClick事件中的选项卡选择。设置每个 TRectangle（对于选项卡）一个标签，然后将所有选项卡连接到同一个 OnClick 事件。然后您获取发件人的标签并从您的标签中设置您的TabControl1.ActiveTab。