Deplacer des items dans un listbox

Bonjour,
j'utilise un composant TUpDown pour déplacer les items d'un listbox. or je n'arrive pas à modifier la propriété itemindex de l'élément sélectionné.
merci pour tout aide
Seb

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm_PersoFH.UPD_POSITION_BONDOnClick(Sender: TObject; Button: TUDBtnType);
var
  i_mov : integer;
begin
  if (Button=btNext) 
  then for i_mov:=LBX_CROSSED_BOND.Items.Count-1 downto 0
       do if LBX_CROSSED_BOND.Selected[i_mov]
          then begin
                 with LBX_LIST_BOND
                 do //???? Items.Strings[i_mov].ItemIndex:=Items.Strings[i_mov].ItemIndex-1;
              end;
end;

Salut :D

Code:

1
2
3
4
5
6
7
8
9
10
procedure TForm_PersoFH.UPD_POSITION_BONDOnClick(Sender: TObject; Button: TUDBtnType);
var
  i_mov : integer;
begin
  if (Button=btNext) and (LBX_CROSSED_BOND.ItemIndex > 0) then
  begin
    LBX_CROSSED_BOND.Items.Move(LBX_CROSSED_BOND.ItemIndex, LBX_CROSSED_BOND.ItemIndex - 1);
    LBX_CROSSED_BOND.ItemIndex := LBX_CROSSED_BOND.ItemIndex - 1;
  end;
end;

merci