IsChecked свойство в Firemonkey TListbox не возвращает правильный результат?

Question

Я пытаюсь использовать как IsChecked, так и IsSelected совместно с FMX TListbox, и оба возвращают неверные результаты (всегда True независимо от выбора пользователя). Является ли это известной ошибкой и есть ли обходной путь?

Мой тестовый код очень прост:

---

var 
    i: integer; 
    lb: TListboxitem; 

for i:=0 to lbxPartners.items.Count-1 do 
begin 

    lb :=tlistboxitem(lbxPartners.Items[i]); 
    if lb=nil then continue; 

    if lb.IsChecked then 
    memo1.Lines.Add('item '+inttostr(i) +' checked') 
    else 
    memo1.Lines.Add('item '+inttostr(i)+' unchecked'); 
end; 

Answer 1

TListBox.Items список строк, и в основном там, так что вы можете использовать управление таким же образом, как VCL TListBox.

TListBox.ListItems - это список TListBoxItems, которые являются дочерними элементами управления, которые отображаются TListBox.

Чтобы получить доступ к IsChecked собственности:

ListBox1.ListItems[n].IsChecked := True; 

Вы можете получить текст либо:

ListBox1.Items[n] := 'Hello'; 
ListBox1.ListItems[n].Text := 'World'; 

Ваш полный код не будет (Примечание нет необходимости в гипсе):

var i: integer; lb: TListboxitem; 

for i:=0 to lbxPartners.items.Count-1 do begin 
    lb := lbxPartners.ListItems[i]; 
    if lb=nil then continue; 

    if lb.IsChecked then 
    memo1.Lines.Add('item '+inttostr(i) +' checked') 
    else 
    memo1.Lines.Add('item '+inttostr(i)+' unchecked'); 
end;