Перейти к содержанию
  • Регистрация
  • 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;

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


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

Рекомендуемые сообщения

  • 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

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


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

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...