Смена цвета label в runtime

[Alesk]

Фрагмент кода:

    nad[g]:= tlabel.Create(tabbedwithnavigationform.label1);
    nad[g].BeginUpdate;
    nad[g].Size.height:=24;
    nad[g].Size.Width:=350;
    nad[g].Text:=we;
    nad[g].position.y:=-99;
    nad[g].Align:=talignlayout.Top;
    nad[g].FontColor:=$FFFEFEFE;
    nad[g].EndUpdate;
    nad[g].Parent:= pod[g];

где nad[g] - массив из tlabel, а pod[g] - массив из tlistview

Нужно чтобы при создании цвет текста становился белым, но почему-то не работает, цвет остается черным

[Maximus]

Попробуйте убрать из множества StyledSettings элемент FontColor перед изменением цвета

nad[g].StyledSettings := [TStyledSetting.Family, TStyledSetting.Size, TStyledSetting.Style];
nad[g].FontColor := $FFFEFEFE;

 

[POV]

Да и парент надо бы раньше 

EndUpdate

Да, ещё пару сталкивался что никакие "апдейты не помогают". Приходится тупо Repaint писать.
Да и зачем тут "бегин-енд", это же не грид с кучей последовательно изменяемых полей, и не график с сотнями добавялемых точек.

 

[krapotkin]

в VCL обязательным элементом EndUpdate была перерисовка

в FMX это вообще не соблюдается

[RoschinSpb]

Ключевым здесь является TStyledSetting.FontColor
NadG.StyledSettings := NadG.StyledSettings - [TStyledSetting.FontColor];

Работает и с BeginUpdate и без оного и c любым положением "Paren :="
См. также Почему не изменяется Font.Style и Font.Size.