trl

Спасибо!))) Упрощал код поисках ошибки и не заметил ))) Однако заметил другую особенность: FindStyleResource не работает для корневого элемента (в моем случае это был TLayout), однако для всех элементов в этом контейнере Ok

Не нашел ответа на форуме. не могу понять почему FindStyleResource не возвращает объекта. procedure TMainForm.Button1Click(Sender: TObject); var item : TListBoxItem; lbName:TLabel; begin Item := TListBoxItem.Create(Self); Item.Parent := ListBox; Item.StyleLookup := 'lyItemBoxDetail'; lbName := Self.FindStyleResource('lbname') as TLabel; // Здесь получаю nil ShowMessage( Item.StylesData['lbname.Text'].AsString) // А этот код работает end;