Discussion :

[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 :

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

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 ?

[henderson]

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 :

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

TTreeNode *TargetNode;

Je sélectionne un noeud lors du OnMouseDown.

Code :

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

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 :

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

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 :

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

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 !

[cmax]

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 :

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

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