delphi - 如何在 Delphi 中更改 TabControl 中事件 TAB 的颜色

Question

如何更改 TabControl(在 FireMonkey 上)中事件 TAB 的颜色，如下所示？

Answer 1

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

1) 第一个选项是您可以从 TStyleBook 为 TabControl 创建 CustomStyle (风格设计师)。

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

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

现在您需要知道每个选项卡框应该相同。为第一列放置一个T矩形，然后将对齐设置为客户端(所有颜色和内部组件取决于您的选择)。

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

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