Discussion :

[Mickey.jet]

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 )

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

Merci d'avance

[qi130]

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

[Jayceblaster]

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

[Qwazerty]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++