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:
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?