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:

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?

[Harry Stahl]

Hier darfst Du ausnahmsweise mal nicht "lb.Beginupdate" setzen.

So funktionierts also:

Delphi-Quellcode:

procedure TForm4.btExchangeClick(Sender: TObject);
begin
 //lb.BeginUpdate;
 lb.ItemsExchange(lb.ListItems[lb.ItemIndex], lb.ListItems[lb.ItemIndex+1]);
 //lb.EndUpdate;
end;

Erläuterung: Intern setzt die Funktion "ItemsExchange" selber Listbox.BeginUpdate und Listbox.Endupdate ein. Wenn Du das selber vorher setzt, geht die interne Routine davon aus, dass die Listbox gerade aktualisiert wird und führt die Änderung nicht aus.

Ist leider nirgendwo dokumentiert.

[Ralphi]

Hallo,

vielen Dank, das hat mir sehr geholfen.
Funktioniert jetzt wie es soll.