доступ к вложенным элементам

[k0der 0]

StyleObject: TFmxObject;     
aItem: TListBoxItem;

...............

aItem := TListBoxItem.Create(nil);
    aItem.Parent := ListBox1;
    aItem.Text := s;
    aItem.StyleLookup := 'listboxitems';

.........................

..................  это работает 

StyleObject := aItem.FindStyleResource('labelname');
      if Assigned(StyleObject) and (StyleObject is TLabel) then
      begin
      lab := (StyleObject as TLabel);
      lab.Text := city + ',' + add;
end;

.................. а этот не работает     

StyleObject := aItem.FindStyleResource('labelname1');
      if Assigned(StyleObject) and (StyleObject is TLabel) then
      begin
      lab := (StyleObject as TLabel);
      lab.Text := city + ',' + add;
end;

 

как быть?

[AlexG 328]

Попробуйте так

aItem.StylesData['labelname1.text'] := '.......';

[k0der 0]

 

Попробуйте так

aItem.StylesData['labelname1.text'] := '.......';

    aItem.StylesData['labelname1.text'] := '11111';   -это не работает

    aItem.StylesData['labelname.text'] := '22222'; -это работает

 aItem.StylesData['panelcent.panelrigth.labelname1.text'] := '11111';- это вызвало эксепшн

[krapotkin 578]

не надо парить стили

сделайте просто объекты в листБоксИтем и заполняйте их от души

зачем такие извраты-то??

[k0der 0]

заменил  tpanel на tlayout  и заработало.

 

а объекты потом криво листаются к сожалению

[TrueCrypt 3]

Неужели никак нельзя получить доступ к вложенным элементам? Просто стилем накидать проще, чем городить свой объект с прямым доступом к дочерним элементам.

----

Что самое интересное, в TStyledControl.FindStyleResource объект FResourceLink = nil.

Изменено 11 февраля, 2016 пользователем TrueCrypt

[zairkz 164]

Неужели никак нельзя получить доступ к вложенным элементам? Просто стилем накидать проще, чем городить свой объект с прямым доступом к дочерним элементам.

----

Что самое интересное, в TStyledControl.FindStyleResource объект FResourceLink = nil.

Вот так все работает, но может я не понял вопроса

 

Желательно это делать в OnApplyStyleLookup данного объекта.

например если хотите заполнить стилевой текст или картинку:

 

Новый объект стиля TButton содержит TText, TLabel, TImage и TButton

procedure TForm_main.Button1ApplyStyleLookup(Sender: TObject);

begin

        TText(TButton(Sender).FindStyleResource('detail')).Text := 'Детали';

        TLabel(TButton(Sender).FindStyleResource('titul')).Text := 'Наименование';

        TImage(TButton(Sender).FindStyleResource('img')).Bitmap.Assign(BTMP);

        TButton(TButton(Sender).FindStyleResource('but_min')).Tag := 58;

        TButton(TButton(Sender).FindStyleResource('but_min')).OnClick := ButW_Min;

end;

 

Сделайте одну процедуру OnApplyStyleLookup и присвойте необходимым объектам. 

 

Можно напрямую заполнять хоть откуда например 

 TText(Button1.FindStyleResource('detail')).Text := 'Детали';

но тогда страшные аномалии происходят если ваш объект находятся допустим в скролбоксе.