Как заполнить программно combobox внутри стиля?

[yura371]

Здравствуйте. Я создал стиль с combobox и edit. Как заполнить программно combobox внутри стиля?

Edit я заполняю так:

Item.StylesData['edit1style'] := '5';

Но Combobox так не получается заполнить.

 

Вся процедура:

procedure TForm2.CreateListBoxItem(const AStyleName: string);
var
  Item: TListBoxItem;
begin
  Item := TListBoxItem.Create(Self);
  Item.Parent := ListBox1;
  Item.Index:=5;
  Item.StyleLookup := AStyleName;
  Item.Height := 41;
  Item.StylesData['combobox1style'] := 'ghfg';
  Item.StylesData['edit1style'] := '5';
end;

[krapotkin]

что все так заморачиваются с впихиваем в стили компонентов

создайте обычным путем и нет проблем

если считать по коду, получается проще и меньше раза в 3 ))

[yura371]

Сам нашел в теме http://blogs.embarcadero.com/yaroslavbrovin/2012/10/11/listboxitem_styling/

var
  StyleObject: TFmxObject;
  combobox1style: TCombobox;
begin
  StyleObject := Item.FindStyleResource('combobox1style');
  if Assigned(StyleObject) and (StyleObject is TComboBox) then
  begin
    combobox1style := StyleObject as TCombobox;
    combobox1style.Items.Add('Текст для заполнения');
  end;

Изменено 28 ноября, 2015 пользователем yura371