Firemonkey Exchange bei Listbox funktioniert nicht

**Ralphi**

Hallo zusammen,

ich versuche verzweifelt mit TListbox.ItemsExchange (Firemonkey) zwei Elemente einer Listbox zu vertauschen.
Es funktioniert einfach nicht, eine Fehlermeldung kommt nicht.

Hier der Code:

markieren

Code:

			procedure TForm4.btExchangeClick(Sender: TObject);

begin

lb.BeginUpdate;

lb.ItemsExchange(lb.ListItems[lb.ItemIndex], lb.ListItems[lb.ItemIndex+1]);

lb.EndUpdate;

end;

procedure TForm4.btFillListboxClick(Sender: TObject);

var i :integer;

    item :TListboxItem;

begin

for i:=0 to 10 do

  begin

  item:=TListboxItem.Create(lb);

  item.Text:='Item ' + IntToStr(i);

  lb.AddObject(item);

  end;

end;

lb ist eine Firemonkey-Listbox.
Exchange statt ItemsExchange habe ich auch schon erfolglos versucht.
Hat jemand ItemsExchange schon mal erfolgreich benutzt?
Gibt es einen Trick dazu?
Mache ich was falsch oder ist es ein Fehler in Firemonkey?

Firemonkey Exchange bei Listbox funktioniert nicht

Firemonkey Exchange bei Listbox funktioniert nicht

Forumregeln