- 0
TListBoxItem.TagObject = nil
-
Похожий контент
-
- 0 ответов
- 1 503 просмотра
-
- 6 ответов
- 2 022 просмотра
-
- 12 ответов
- 2 411 просмотр
-
- 3 ответа
- 2 003 просмотра
-
- 7 ответов
- 3 749 просмотров
-
TListBoxItem Сортировка элементов TListBoxItem в TListBox при помощи функции Sort по любым критериям
От kvantum,
- 1 ответ
- 3 638 просмотров
-
TListBoxItem Почему для моего стиля TListBoxItem сбрасывается состояние встроенного TCheckBox при прокручивании списка?
От Nix0N,
- 2 ответа
- 2 730 просмотров
-
- 3 ответа
- 2 462 просмотра
-
StylesData Как получить доступ к свойству объекта в стиле и как повесить свой обработчик на его события?
От Kikoma,
- TSpinBox
- TListBoxItem
- (и ещё 3 )
- 8 ответов
- 5 572 просмотра
-
TCustomListBoxItem У меня не получается обновить высоту своего класса итема для TListBox
От kvantum,
- TListBox
- TListBoxItem
- (и ещё 3 )
- 2 ответа
- 2 343 просмотра
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
Barbanel
Всем хай.
Пол дня бьюсь, уже с ума начинаю сходить, и как назло не с кем посоветоваться сегодня. Выручайте)
Суть:
Есть TListBox. В него динамически из кода создаются TListBoxItem.
Каждому итему в поле TagObject присваивается некий объект, хранящий дополнительные данные.
По клику на итем, вытаскивается этот объект и в зависимости от данных, выполняются разные действия.
Проблема:
Под Windows ее собсно нет)
Под Android при клике на TListBoxItem оказывается что TagObject = nil.
Голова уже дымится, у меня закончились мысли, что это может быть...
Код, на всякий:
while not query.Eof do begin item := TListBoxItem.Create(lbTeilLeistungsArten); lbTeilLeistungsArten.AddObject(item); item.StyleLookup := 'listboxitemTL'; item.Height := 60; item.Text := query.FieldByName('Bezeichnung').AsString; item.OnClick := OnTeilleistungenClick; item.Tag := query.FieldByName('ID').AsInteger; item.DisableDisappear := true; item.ApplyStyleLookup(); lStObj := TStoreObject.CreateTL(query.FieldByName('ID').AsInteger); lStObj.TeilLeistung.Name := query.FieldByName('Bezeichnung').AsString; item.TagObject := lStObj; query.Next(); end;
Всем заранее спасибо!
Ссылка на комментарий
6 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.