si tu peux changer de composants, jette un oeil au TdfsEnhListView ou au TdfsExtListView dispos sur http://www.delphifreestuff.com .
antp
je suis pas sûr que le @ soit nécessaire...
Bendes
Pour la fonction, je savais étant donné que je l'ai implémenté, j'ai essayé aussi sans la dépendance (CustomSortProc au lieu de TMain.CustomSortProc) mais ketket branlette balayette...:(
Bon ben, je retourne à mes recherches...
Merci quand même!
[edtdd]--Message édité par Bendes--[/edtdd]
antp
En effet il faut une fonction à part et non pas une méthode d'un objet !
[edtdd]--Message édité par antp--[/edtdd]
gtm
ben moi j'ai ca dans l'aide :
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -lstrcmp(PChar(TListItem(Item1).Caption),
PChar(TListItem(Item2).Caption));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListView1.CustomSort(@CustomSortProc, 0);
end;
la grande difference c'est : procedure TMain.customsortproc
au lieu de : procedure customsortproc
Ca marche peut etre avec ta version a condition de faire l'appel
Listtxt.customsort(@TMain.customSortProc, ...)
Bendes
V'là mon code pour trier une ListView par ordre décroissant sur le clic d'une colonne (tirer de l'aide Delphi...)
