TTreeView, DragOver le "vide" => access violation

Bonjour,

Dans un TTreeView, j'affiche l'arborescence d'élément créé par mon soft

je peux déplacer les elements par drag / drop

seulement si durant un drag je passe au-desus du "vide" en dessous de la fin de l'arborescence, ca plante, pourtant mon evenement dragOver contient le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

void __fastcall TfrmTests::tvTestsDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { THitTests HitTests; TTreeNode *Node;   if (tvTests->Selected == NULL) { Accept = false; return; } // suite du code ...

---

vous auriez une idée pour tester qu'il n'y a rien sous le drag et éviter la splendide mais non souhaité Acces violation ?

Salut !

J'ai fait un essai qui ne pose pas de problème, celà dit mon code est sans doute trop simple.
La propriété DragMode du Treeview est sur dmAutomatic

Pour ne pas utiliser le TreeView->Selected qui viendrait mettre de la pagaille dans ce que je cherche à faire :

Code:

---

TTreeNode *TargetNode;

---

Je sélectionne un noeud lors du OnMouseDown.

Code:

---

1 2 3 4 5

void __fastcall TForm1::TreeView1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { TargetNode = TreeView1->GetNodeAt(X,Y); }

---

La méthode du DragOver

Code:

---

1 2 3 4 5 6 7 8 9 10

void __fastcall TForm1::TreeView1DragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { Accept = (TargetNode != NULL); if(Accept) { //Ton code sans doute //...??? } }

---

Le Drop se limite dans ce test à déplacer le noeud sélectionné en fin de liste.

Code:

---

1 2 3 4 5 6 7 8

void __fastcall TForm1::TreeView1DragDrop(TObject *Sender, TObject *Source, int X, int Y) { TTreeNode *Last = TreeView1->Items->Item[TreeView1->Items->Count-1]; TreeView1->Items->Add(Last, TargetNode->Text); TreeView1->Items->Delete(TargetNode); TargetNode = NULL; }

---

Si ça peut être un début de solution...

A plus !

Citation:

---

Envoyé par netah25

Bonjour,

Dans un TTreeView, j'affiche l'arborescence d'élément créé par mon soft

je peux déplacer les elements par drag / drop

seulement si durant un drag je passe au-desus du "vide" en dessous de la fin de l'arborescence, ca plante, pourtant mon evenement dragOver contient le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

void __fastcall TfrmTests::tvTestsDragOver(TObject *Sender, TObject *Source, int X, int Y, TDragState State, bool &Accept) { THitTests HitTests; TTreeNode *Node;   if (tvTests->Selected == NULL) { Accept = false; return; } // suite du code ...

---

vous auriez une idée pour tester qu'il n'y a rien sous le drag et éviter la splendide mais non souhaité Acces violation ?

---

je crois que ton problème vient d'ailleurs
ta souris cherche ce qu'elle ne trouve pas
tu as peut être declaré autre chose que le drag avec ta souris
du genre mousemove par exemple
en esperant t'aider