procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); begin //ordonner selon les propriétés Imageindex if Item1.ImageIndex > Item2.ImageIndex then Compare := 1 else if Item1.ImageIndex < Item2.ImageIndex then Compare : = -1 else Compare := 0; //Si les deux ItemIndex sont égaux if Compare = 0then //Comparaison sans tenir des majuscules/minuscules Compare := AnsiCompareText(Item1.Caption, Item2.Caption); end ;
procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); begin //Comparaison sans tenir des majuscules/minuscules Compare := AnsiCompareText(Item1.Caption, Item2.Caption); //Si les deux élements sont égaux, examiner leur propriété //ImageIndex if Compare = 0then begin //ordonner selon les propriétés Imageindex if Item1.ImageIndex > Item2.ImageIndex then //et permuter Compare := 1; end ; end; Dans le code ci-dessus, le tri se fait sur le contenu de la première colonne (propriété Caption). Puis déclencher le tri à la demande : procedure TForm1.btnSortListViewClick(Sender: TObject); begin ListView1.AlphaSort; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question