drag and drop sur une listBox?

bonjour
Je suis sur un projet VCL et je souhaite pouvoir faire des déplacer d'Items dans une lisBox.
j'ai trouver quelques exemples mais pas mal compliquer...(enfin surtout pour un débutant :oops: )

Pourriez vouis m'indiquer quelques liens pouvant me faire avancer ... je suis preneur de tout concernant le drag and drop...?

Merci d'avance ;)

As-tu regardé dans la :faq: ?
http://delphi.developpez.com/faq/?page=systemedivers

tiens voila un liens ou tu pourras telecharger un source permettant de faire du drag and drop dans une listBox:

http://delphi.developpez.com/sources...ragdroplistbox

;)

SAlut
Le message date un peu mais je recherchai des infos sur les mouvements en Drag&Drope dans un StringList, merci Jayce pour ton exemple il est au poile, il y a juste un petit soucis lorsque tu fais descendre une ligne dans ton string liste cette ligne se met un item trop bas je pense que cette modif arrange ca ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.FileListDragDrop(Sender, Source: TObject; X, Y: Integer); Var NumItem : Integer; CH : String; begin If (Sender = File) Then Begin NumItem := File.ItemAtPos(Point(X,Y),False); If NumItem = File.Items.Count Then Begin CH := File.Items[ File.ItemIndex ]; File.Items.Delete( File.ItemIndex ); NumItem := File.Items.Add( CH ); End Else Begin CH := File.Items[ File.ItemIndex ]; FileList.Items.Insert(NumItem, CH ); FileList.Items.Delete( File.ItemIndex ); End; File.ItemIndex := File.Items.IndexOf(CH); End; end;

---

Merci encore a++