Обращение к элементам стиля

@combats69 · Регистрация: 23.01.2016

Author24 — интернет-сервис помощи студентам

Delphi

LItem: tlistboxitem;
...
    LItem := tlistboxitem.Create(ListBox2);
    LItem.Parent:= ListBox2;
    LItem.StyleLookup:='myListBoxItemStyle';
    LItem.ItemData.Text := item.S['artist'];
...
    StyleObject := LItem.FindStyleResource('btnPlayStyle');
    if Assigned(StyleObject) and (StyleObject is TButton) then  
      begin
        btnPlay := StyleObject as TButton;
        showmessage('тест');
        //btnPlay.OnClick :=btnPlayClick;
      end;

не понимаю, почему не находит btnPlayStyle?

@FIL · 21.04.2016, 22:51

Где-то ты косячишь. В приведенном коде я ошибок не вижу.

@combats69 · 22.04.2016, 23:05 **[ТС]**

переделала, чтобы все компоненты были на одном TLayout, но все равно не находит
посмотрите, правильно ли все на картинке?

Delphi

itemText := litem.FindStyleResource('artiststyle') as ttext;  
if Assigned (itemText) then   // не пойму, почему тут false
  itemText.Text:= item.S['artist'];  
 
LItem.StylesData ['artiststyle'] :=item.S['artist']; // а это работает

@combats69 · 22.04.2016, 23:15 **[ТС]**

... кажется, нашла свой косяк:

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	21.04.2016, 22:51	2
	Где-то ты косячишь. В приведенном коде я ошибок не вижу. 0

@combats69 0 / 0 / 0 Регистрация: 23.01.2016 Сообщений: 40
	22.04.2016, 23:15 [ТС]	4
	... кажется, нашла свой косяк: Миниатюры 0