Flyt Listbox items' plads

Du kan ikke flytte 3-4 på en gang.
Du er nødt til enten
at slette den gamle item og Add eller Insert den igen
eller
bytte rundt på 2 item med Exchange (tror jeg den hedder, jeg har ikke Delphi her).

Jeg ved ikke om det hjælper dig, men måske kan du arbejde videre med denne metode.

procedure TForm1.ListBox1Click(Sender: TObject);
var s : string;
    i : integer;
begin
  with listbox1 do begin
    if itemindex > 0 then begin
      i := listbox1.itemindex;
      s := listbox1.items[i-1];
      items[i-1] := items[i];
      items[i] := s
    end
  end
end;

har selv fundet den kode på torry, men kan ikke finde ud af at få den til at flytte flere items

Mit bedste bud er:
Sæt mutiselect til true i listbox.
Udfør følgende kode :

var i : integer;
    s : string;
begin
  with listbox1 do
    for i := 1 to Items.Count - 1 do
      if Selected[i] then begin
        s := items[i];
        items[i] := items[i - 1];
        items[i - 1] := s
      end
end;

Hvis du vil flytte mere end en gang tilbage (eller frem) skal

items[i] := items[i - 1];
items[i - 1] := s

rettes til

items[i] := items[i - N];
items[i - N] := s

Hvor N er antallet af pladser der skal flyttes

Jeg håber at du kan bruge det til noget.

Ups...

Og rette
  for i := 1
til
  for i := N

Husk at sætte multiselect til true

virker ikke særlig godt, kan ikke få den til at flytte flere pladsere ned/op

tængte noget ala det her med multi flytning
http://www.swissdelphicenter.ch/torry/showcode.php?id=200

lukker