Deplacer les items d'une listbox vers une autre par drag and drop

Description

- Les items sont insérés ou ajoutés, selon l'emplacement choisi dans la ListBox de destination.
- La multi-sélection est autorisée.
- Les items sont déposés dans l'ordre où ils ont été trouvés.
- Le glisser-déposer fonctionne dans les 2 sens.
- Le glisser-déposer à l'intérieur de la même ListBox est supporté.

L'interface graphique permet de tester toutes les possibilités.

Suite à une question posée sur le forum de delphifr.com :
http://www.delphifr.com/infomsg_LISTBOX-DRAG-DROP-MULTIPLE_1053999.aspx?p=1

La question a été posée par morinxav2.
La suggestion de Caribensila d'utiliser une TStringList est finalement à retenir dans la mesure où l'on veut pouvoir insérer les items dans l'ordre où ils se trouvaient dans la liste de départ.
Donc merci à vous deux, c'est un peu un travail collectif.

N'hésitez pas à signaler tout bug ou amélioration, ça fait avancer le schmilblic.

Source / Exemple :


Dans le zip.

Conclusion :


Fait sous D4 Pro. Testé OK sous D7.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.