Discussion :

[Merfolk]

Bonjour tout le monde,

j'aurai besoin d'une petite aide sur le drag and drop. En effet, je n'ai encore jamais programmé de ma vie un truc qui fait du drag& drop (tous languages confondus), et je n'ai aucune idée de comment ca marche...

Je ne trouve pas grand chose dans le forum qui en parle, ni dans la faq, ou alors des trucs de fou, style drag & drop interapplications etc.
Dans l'aide je vois vaguement qu'il existe des evenements dragOver, dragStart dragStop, dragdrop etc. mais ils ne sont pas sur tous les composants et je n'y comprends pas grand chose surtout.

Donc voilà, sachant que je n'ai pas accès à google (du boulot), est -ce que qqn peut me fournir un exemple de drag en drop complet (ou tout lien interessant)? de ce qu'il faut faire précisement.


(mon but est de faire du drag& drop au sein d'une grille, pour déplacer des valeurs de cellules dans une autre)


voilà, merci si qqn m'aide, à toutes.

[bakaneko]

Les Drag&Drop sont gérés par la cible, pas par la source.

Donc:
1 - mais la propriété DragMode de ton composant source à dmAutomatic
2 - Perso, j'utilise les évènement OnDragDrop et On DragOver.

Sur le OnDragDrop, je mets le code à faire sur mon Drag&Drop en utilisant le paramètre Source pour savoir les données envoyées (en ayant fait un cast bien entendu.
Sur le OnDragOver, je teste sir je veux bien recevoir les données et je mets Accept à true si oui.

Exemple trouvé dans l'aide de Builder.

Code :

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

1
2
3
4
5
6
void __fastcall TForm1::ListBox1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept)
 
{
   Accept = Source->ClassNameIs("TLabel");
 
}

Ce gestionnaire d'événement OnDragDrop implémente le comportement d'un objet "déplacé".

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::ListBox1DragDrop(TObject *Sender, TObject *Source, int X, int Y)
 
{
  if (Sender->ClassNameIs("TListBox") && Source->ClassNameIs("TLabel"))
  {
    TListBox *DestList = (TListBox *)Sender;
    DestList->Font = ((TLabel *)Source)->Font;
    DestList->Color = ((TLabel *)Source)->Color;
  }
}

[Merfolk]

d'accord merci de ces précisions. Pour m'enlever un doute :

donc si j'ai bien compris, en drag& drop, tout ce qu'on sait, du point de vue du composant c'est le composant qu'on a reçu sur la gueule c'est tout ?
Tout ce que je sais par ex c'est : je suis une texteBox, et j'accepte de recevoir une listeBox.

Et donc pour ce qui est "du contenu droppé", en gros il faut passer par des variables globales c'est ça ?
(ou faire du source->selectedItem quand possible)

(L'utilisateur ne souhaite pas drag&drop le composant, mais une certaine ligne précise)

[bakaneko]

Si tu regardes l'exemple que je t'ai donné, tu as:

Code :

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

((TLabel *)Source)->Font;

A l'aide du parmètre Source (de type TObject* d'où l'intéret du cast), tu peux obtenir tous les propriétés et méthodes de l'objet source.

Pour un listbox, tu pourras faire:

Code :

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

Edit1->Text = ((TListBox*)Source)->Text;

J'espère avoir été clair...

[Merfolk]

ok merci