• 0
yura371

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

Вопрос

Здравствуйте. Я создал стиль с 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;

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

2 ответа на этот вопрос

  • 0

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

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

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
  • 0

Сам нашел в теме 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;
Изменено пользователем yura371

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу