Listboxeintrag eine Position nach oben oder unten?

[mlspider]

Hallo,

versuche mit:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
begin
 ListBox1.Selected[ListBox1.ItemIndex -1];
end;

einen selektierten Eintrag in der Listbox um eine Position nach oben zu verschieben. Funktioniert aber nicht.

[chrisw]

Delphi-Quellcode:

ListBox1.ItemIndex := ListBox1.ItemIndex -1;

[sh17]

ich glaube, er meinte das vertauschen der Strings

Delphi-Quellcode:

Listbox1.items.exchange(Listbox.itemindex,,Listbox.itemindex-1)

Achtung:listbox-grenzen beachten

[mlspider]

Damit ändert sich doch wohl nur die Selektierung der Einträge. Ich möchte aber, daß das Markierte um eine Position nach oben rutscht.

[sh17]

hast Du mein Vorschlag ausprobiert?

[mlspider]

Danke sh17. Jetzt geht es. Das wäre übrigens meine nächste Frage gewesen. Wie kann ich das per Code regeln, das die Meldung "Listenindex überschreitet das Maximum (1)" nicht mehr kommt?
Also erkennt, daß es sich um die erste oder letzte Position handelt.

[sh17]

einfach vorher schauen, ob es den Index gibt ;-)

runter zu

Delphi-Quellcode:

if ListBox.ItemIndex > -1

rauf

Delphi-Quellcode:

if ListBox.ItemIndex < ListBox.Count

bei der Exchange-Sache natürlich einen Wert weniger

runter zu

Delphi-Quellcode:

if ListBox.ItemIndex > 0

rauf

Delphi-Quellcode:

if ListBox.ItemIndex < ListBox.Count-1

[mlspider]

Hätte ich ja auch selbst drauf kommen können. Danke!