Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Listbox


Hochhäusl - So 18.08.02 19:21
Titel: Listbox
Hi,

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


mfg
Hochhäusl


toms - So 18.08.02 19:28

// 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