Discussion :

[TOTO32]

Bonjour,

J'ai un TListView, celui-ci a sa propriété ViewStyle a vsReport, et j'ai aussi mis sa propriété ColumnClick a True.

Dans mon TListView j'ai 5 colonnes, je voudrais pouvoir trier les 5 colonnes comme quand l'on trie celle de l'explorateur de windows en vue detail, j'ai essayer avec l'événement OnColumnClick, mais celui-ci me renvoie un événement générique pour toute les colonnes, hors moi je voudrais un événement pour une colonnes spécifié, pour pouvoir trier ma liste.

Je compte donc sur votre aide, car je ne c'est vraiment pas comment faire, Merci a tous !

[Pierre Castelain]

L'événement OnColumnClick t'envoie la colonne qui a été cliquée. Tu peux donc t'en servir pour gérer ton tri.

[TOTO32]

L'événement OnColumnClick t'envoie la colonne qui a été cliquée. Tu peux donc t'en servir pour gérer ton tri.

Merci, c'était tellement evident que je m'en veut de ne pas avoir vu ça !

Comme quoi des fois, on cherche vraiment compliquer !

[TOTO32]

Pour ceux qui voudrait la réponse et qui on la flemme de regarder dans l'aide, voici la réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var ColumnToSort: Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm5.ListView5ColumnClick(Sender: TObject; Column: TListColumn);
begin
    ColumnToSort :=Column.Index;
    (Sender as TCustomListView).AlphaSort;
end;
 
procedure TForm5.ListView5Compare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var IX:Integer;
begin
    if ColumnToSort = 0 then
        Compare:=CompareText(Item1.Caption,Item2.Caption)
    else
    begin
        IX:=ColumnToSort -1;
        Compare:=CompareText(Item1.SubItems[IX],Item2.SubItems[IX]);
    end;
end;

J'ai juste fait un copier/coller de l'aide !