Android 如何在delphi xe5 Firemonkey中更改标签的字体

我有一个程序打算准备一个带有两个标签和下拉列表的表单。但我无法更改标签的字体颜色。有人能帮忙吗

我找到了一个链接，上面说他们找到了答案，但我无法理解。

下面是试图执行更改的单元的代码

unit procedures;

interface

Uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants, fmx.controls;

Procedure resetproductlists;

implementation

uses main_unit, datalive_unit, AddUniqueItemToComboBox;

Procedure resetproductlists;
begin
  With Datalive.products Do
  Begin
    Try
      active := False;
      params.clear;
      sql.text := 'select supplier,item,width,height from products';
      active := True;
      Main.Combobox1.clear;
      Main.Combobox2.clear;
      Main.Combobox3.clear;
      Main.Combobox4.clear;
      Main.Edit1.text := '';
      Main.Edit2.text := '';
      Main.SpinBox1.Value := 0;
      Main.label13.text := 'n/a';
      Main.label13.StyledSettings := Main.label13.StyledSettings -
        [TStyledSetting.ssFontColor];
      Main.label13.FontColor := TAlphaColors.Aqua;
      Main.label14.text := 'R 0.00';
      Main.label14.FontColor := clBlack;
      while not eof do
      Begin
        try
          addtocombo(Main.Combobox1, Fieldbyname('supplier').Asstring);
          addtocombo(Main.Combobox2, Fieldbyname('item').Asstring);
          addtocombo(Main.Combobox3, Fieldbyname('width').Asstring);
          addtocombo(Main.Combobox4, Fieldbyname('height').Asstring);
        finally
          next;
        end;
      End;
    Finally
      active := False;
    End;
  End;
end;

end.

addtocombo

过程仅将文本插入组合框（如果尚未在组合框中找到）

---

任何援助都将是巨大的。谢谢

以下两行更改XE5中标签的字体颜色：

  Label13.StyledSettings := Label13.StyledSettings - [TStyledSetting.FontColor];
  Label13.TextSettings.FontColor := TAlphaColors.Aqua;

---

但是你已经有了代码。所以问题是为什么它在你的情况下不起作用。我想说的是，要么你的代码没有执行，要么有什么东西把颜色改回了黑色。尝试在

FFontColor:=Value处的TTextSettings.SetFontColor中设置条件断点仅在将颜色更改为Aqua或从Aqua更改颜色时激发。这可能会给你一个线索。
这个解决方案有用吗？它帮助了我。