Discussion :

[steph_1]

Bonjour à tous,
j'ai le treeview suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
TOTO
   L Fils1
       L champs1
       L champs2
       L champs3
   L Fils2
       L p1
       L p2
       L pn
TATA
TITI

Je veux pouvoir changer l'ordre des champs via la souris. (sans doute à l'aides des fcts dragover & dragdrop).
Par contre les champs : champs1...3 peuvent être placés que dans la branche Fils1, les champs p1...n que dans la branche Fils2 etc etc etc

Comment faire svp ???

Merci

[mduse]

Salut,

Pour le Treeview tu définis :
Propriété

Code :

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

DragMode = dmAutomatic;

function OnDragOver

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Test pour autoriser l'action de déplacement 
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  node : TTreeNode;
begin
  node:=TreeView1.GetNodeAt(X, Y);
  if (node<>nil) and (TreeView1.Selected<>nil) then
// le noeud déplacé et le noeud de réception ont le même noeud parent ?
    Accept := (TreeView1.Selected.Parent = node.Parent)  
  else
    Accept := false;
end;

function OnDragDrop

Code :

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

1
2
3
4
5
6
7
8
9
10
 
//  Déplacement du noeud
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  node : TTreeNode;
begin
  node := TreeView1.GetNodeAt(X, Y);
  if (node<>nil) and (TreeView1.Selected<>nil) then
    TreeView1.Selected.MoveTo(node, naInsert);
end;

Tu devrais obtenir le résultat souhaité.

@+