Déplacer un item dans un TListView

Function MoveListViewItem(ListView : TListView; ItemFrom, ItemTo : Word) : boolean;
var
Source, Target : TListItem;
begin
result := false;
listview.items. begin update;
try
source := listview.items[ItemFrom];
target := listview.items.insert(ItemTo);
target.assign(source);
source.free;
result := true;
finally
listview.items.EndUpdate;
end;
end;

//déplace l'item 1 derrière l'item 4
procedure TForm1.Button1Click(Sender: TObject);
begin
// Listview1.ViewStyle := vsReport;
if MoveListViewItem(Listview1,1,4) then
ShowMessage('Moved!');
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour15/11/2001
VisualisationVu 868 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur