FireMonkey AbsoluteOpacity问题

Question

我将组件定义为

tZText = class (tText)
...
property Enabled : Boolean read GetEnabled write SetEnabled;     
...
procedure tZText.SetEnabled (const aEnabled: Boolean);
begin
  inherited Enabled := aEnabled;
  case aEnabled of
        False : TextSettings.FontColor := fTextColors.TextColorDisabled;
        True  : TextSettings.FontColor := fTextColors.TextColorIdle    ;
  end;
end;

预计组件将根据Enabled属性的状态绘制文本。

但是，我在整个原始代码中执行了执行，并且在某个时候，它进行了赋值

FLayout.Opacity := AbsoluteOpacity;

其中AbsoluteOpacity为0,6 ...，因此文本被绘制为好像组件始终未启用。

我无法弄清楚AbsoluteOpacity为何或在何处使用此值。

我感谢任何解决此问题的建议。

注释

1组件的父级是TRectangle

2环境没有样式