如果在运行时创建，Firemonkey组件样式不起作用

Question

我的问题。 我在运行时创建TListBoxItem和TLabel。 已创建所有组件，但未应用TLabel样式。

我是否必须调用任何其他函数来应用样式？

我的代码：

// LIST ITEM
LB_Item := TListBoxItem.Create(POSTAVKE);
with LB_Item do
begin
  Parent := POSTAVKE;
  Height := 50;
  Selectable := True;
end;
// LABEL 1
LB_Label1 := TLabel.Create(nil);
with LB_Label1 do
begin
  Parent := LB_Item;
  Align := TAlignLayout.alLeft;
  Width := 50;
  Font.Size := 12;
  TextAlign := TTextAlign.taCenter;
  Text := IntToStr(Kolicina);
  Font.Size := 14;
  Font.Style := [TFontStyle.fsBold];
  FontColor := TAlphaColorRec.Darkslategray;
  HitTest := False;
end;

......

Application.ProcessMessages;

Answer 1

在运行时，您需要更改StyledSettings属性中的值：

StyledSettings := StyledSettings - [TStyledSetting.ssFamily, TStyledSetting.ssSize, TStyledSetting.ssStyle];

应该为你做。

http://docwiki.embarcadero.com/Libraries/XE5/en/FMX.Types.TStyledSetting