Listbox

Hochhäusl · Beiträge: 57

Hi,

ich habe eine listbox, wie kann ich nun einen markierten eintrag per Knopfdruck "rauf und runter" schieben?

mfg
Hochhäusl

toms · Beiträge: 1099 Erhaltene Danke: 2

// runter

Quelltext

1:
2:
3:

with ListBox1 do
  if ItemIndex < Pred(Items.Count) then
    Items.Exchange(ItemIndex, ItemIndex + 1);

// rauf

Quelltext

1:
2:
3:

with ListBox1 do
  if ItemIndex > 0 then
    Items.Exchange(ItemIndex, ItemIndex - 1);

tom