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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Partager