Accueil > Manip’s > Delphi > JEDI Librairie > jvDragDrop
DELPHI
jvDragDrop
JEDI
jeudi 23 décembre 2010, par
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;