Всем хай.
Пол дня бьюсь, уже с ума начинаю сходить, и как назло не с кем посоветоваться сегодня. Выручайте)
Суть:
Есть 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;
Всем заранее спасибо!