IsChecked-Eigenschaft in Firemonkey TListbox gibt das korrekte Ergebnis nicht zurück?

Question

Ich versuche, IsChecked und IsSelected in Verbindung mit dem FMX TListbox-Steuerelement zu verwenden, und beide geben falsche Ergebnisse zurück (immer True, unabhängig von der Benutzerauswahl). Ist das ein bekannter Fehler und gibt es einen Workaround?

Mein Test-Code ist ziemlich einfach:

---

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 eine Liste von Strings ist, und ist vor allem dort, so dass Sie die Kontrolle in der gleichen Weise wie die VCL TListBox verwenden können.

TListBox.ListItems ist eine Liste von TListBoxItems, die die untergeordneten Steuerelemente sind, die von der TListBox angezeigt werden.

Um die IsChecked Eigenschaft zugreifen:

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

Sie den Text zugreifen kann entweder mit:

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

Ihrem vollständigen Code wäre (für eine Besetzung keine Notwendigkeit Hinweis):

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;