Почему ничего не находит FindStyleResource

[Frol]

Пытаюсь разобраться со стилями...
Вот такой код срабатывает

Цитата

procedure TMyTreeViewItem.ApplyStyleLookup(Sender: TObject);
var
  Text:TText;
begin
  if FindStyleResource<TText>('Mass',Text) then Text.TextSettings.FontColor:=TAlphaColorRec.Blue;
end;

Находится нужный TText и цвет шрифта становится синим. Это происходит в тот момент, когда стиль применяется...

Если же попытаться сделать это потом

Цитата

procedure TMyTreeViewItem.AAA;
var
  Text:TText;
begin
  if FindStyleResource<TText>('Mass',Text) then Text.TextSettings.FontColor:=TAlphaColorRec.Blue;
end;

Все как было, но потом... То ничего не происходит...
 

и если обращаться снаружи к объекту не работает

Цитата

if MyTreeViewItem.FindStyleResource<TText>('Mass',Text) then Text.TextSettings.FontColor:=TAlphaColorRec.Blue;//не срабатывает 
MyTreeViewItem.AAA;//не срабатывает

НО работает StylesData

Цитата

MyTreeViewItem.StylesData['Mass.TextSettings.FontColor']:=TAlphaColorRec.Blue;//срабатывает

Т.е. StylesData находит 'Mass.TextSettings.FontColor', а FindStyleResource не находит Mass:TText

Как победить FindStyleResource?

[Tumaso]

Доступ к элементам стиля. FindStyleResource

[Frol]

Я видел эти два урока уже раньше. Мне казалось, что  FindStyleResource и StylesData предлагаются как альтернатива. StylesData, как я понял, не позволяет передавать значения для множеств... А в остальном как альтернатива. 

У меня же явно выходит, что StylesData работает, а FindStyleResource нет. Но посмотрю внимательнее. спасибо.

Изменено 19 июня пользователем Frol