Drag and drop entre TListBox

Bonjour à tous,

je souhaite faire du drag & drop entre deux listes, mais je suis un peu perdu, jamais fait ce genre de choses. J'ai bien trouvé des bouts de code, mais c'est pas pour FMX et je suis perdu.
Grosso modo, j'ai deux listes (disons ListBox1 et 2) qui contiennent des éléments String et je voudrais déplacer des éléments d'une liste à une autre (suppression de l'ancienne liste et insertion dans la nouvelle.
Avec si possible le curseur qui change pendant l'opération un truc classe quoi...

Pour le curseur c'est pas obligé... :oops:

Merci beaucoup.

Bon j'ai réussi à chercher et à trouver quelques pistes. Du coup ça donne ça :

D'abord, il faut mettre les propriétés "DragMode" des listbox à "dmAutomatic".

Ensuite, il faut redéfinir certaines méthode des contrôles d'arrivée :

Code:

---

1 2 3 4 5

procedure TFFenetrePerso.ListeVariablesCombatDragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Accept: Boolean); begin Accept := True; end;

---

De ce que j'ai pu comprendre, ça force un contrôle à accepter que un drag drop soit fait sur lui.


Ensuite redéfinir la méthode Drag Drop :

Code:

---

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

procedure TFFenetrePerso.ListeVariablesCombatDragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); Var numero : integer; begin // ajouter l'element dans la nouvelle liste ListeVariablesCombat.Items.Add((Data.Source as TListBox).Selected.Text); // le supprimer de l'ancienne (Data.Source as TListBox).Items.Delete((Data.Source as TListBox).ItemIndex); // declencher le recomptage des elements de la nouvelle liste ListeVariablesCombatChange(self); // declencher le recomptage des elements de l'ancienne liste en repositionnant le itemindex numero := (Data.Source as TListBox).ItemIndex; (Data.Source as TListBox).ItemIndex := -1; if numero >= (Data.Source as TListBox).Items.Count then dec(numero); (Data.Source as TListBox).ItemIndex := numero ; end;

---

LE code est documenté. Data est un objet TDragObject qui contient entre autre une prop Source qui correspond au contrôle de départ.
D'où le transtpage (Data.source as TListBox) pour pouvoir accéder aux props de l'émetteur.

Mon bricolage avec Numero et ItemIndex me permet de déclencher un recomptage des éléments de la liste de départ, car pour l'instant, je n'ai pas trouvé l'évènement correspondant au changement de la liste des items de la listBox.

Voila ça semble assez simple en fait...

Par contre j'ai repéré un truc bizarre : une liste n'accepte un Drop que si on a déjà sélectionné au moins une fois un de ses éléments. Soit c'est un bug de FMX, soit j'ai raté une marche...