BlueGEEK Journal

Accueil > Manip’s > Delphi > JEDI Librairie > jvDragDrop

DELPHI

jvDragDrop

JEDI

jeudi 23 décembre 2010, par bluegyn_spip

- Le composant DragDrop de la librairie JEDI permet de programmer simplement le complexe Drag and Drop de Windows vers une Application sans pratiquement écrire une ligne de code.


- ONGLET jvSYSTEM

  • Déposez jvDragDrop sur la Fiche

Propriétés

AcceptDrag True
Target Form1

Evènements

- Un seul = jvDragDrop1Drop

Exemples


Comment récupérer la liste de fichiers Dropés dans une ListBox ?


- procedure TForm1.JvDragDrop1Drop(Sender : TObject ; Pos : TPoint ;Value : TStrings) ;

- var i : integer ;

- Begin

  • ListBox1.Clear ; // Liste accueillant les noms de fichiers
  • for i := 0 to value.Count-1 do ListBox1.Items.Add(value[i]) ;

- End ;


Comment récupérer un seul fichier ?


- Il suffit d’appeler le premier indice (numéro Zéro)

- ShowMessage ( Value [0] ) ;


Comment cibler le DragAndDrop sur un seul champ du formulaire ?


- Il suffit de placer ce composant dans la propriété TARGET

- DraDrop1.Target := Edit1 ;

Ou

- DraDrop1.Target := ListBox1 ;


var i : integer;

Begin

ListBox1.Clear; // Liste accueillant les noms de fichiers

for i:= 0 to {{value}}.Count-1 do ListBox1.Items.Add({{value}}[i]);        

End;