Delphi dicas

Mudar as ordem dos arquivos(musicas)...

{Agora o mais legal de tudo, é poder mudar a ordem dos arquivos (músicas) em tempo de execução, tipo, mover os arquivos com um simples clique do mouse, primeiro temos que alterar a opção DragMode do ListView para Automatic, Colocar a opção RowSelect para True, após isso, temos que:



1-) Declarar as variáveis Globais;

ListItem : TListItem;

Orig, Dest : integer;



2-) Declarar a função;

{Mover Itens}

function MoveListViewItem(listView: TListView; ItemFrom, ItemTo: Word): Boolean;

var

Origem, Destino: TListItem;

begin

        Result := False;

        listview.Items.BeginUpdate;

        try

        Origem := listview.Items[ItemFrom];

        Destino := listview.Items.Insert(ItemTo);

        Destino.Assign(Origem);

        Origem.Free;

        Result := True;

        finally

        listview.Items.EndUpdate;

end;

end;

por : Elias R. De M. Junior