• 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 пользователей онлайн

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