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

Question

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

Answer 1

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

1）首先，您可以从 TStyleBook为 TabControl 创建 CustomStyle （样式设计师）。

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

2）我更喜欢用第二种方式。将 TTabControl 的 TabPosition 设置为 无 ，然后将 TGridPanelLayout 添加到您希望在表单中添加标签的位置。之后，为您的标签计数设置TGridPanelLayout的列数。

现在您需要知道每个标签框应该相同。删除第一列的 TRectangle ，然后将 对齐 设置为 客户端 < / strong>（所有颜色和内部组件取决于您的选择）。

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

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