[Treeview] Changer le parent d'un Node

Version imprimable

06/01/2007, 11h07
Aloneghost

[Treeview] Changer le parent d'un Node

Bonjour à vous amis programmeurs, je sort d'une nuit de programmation mouvementé (étant donné mon niveau quelque peu... limité :D) et il en ressort, en plus de la fatigue que les Treeview sont des adversaires bien plus difficile à vaincre que je ne le croyais.

Mon appli gere un Treeview qui sert de visualisation d'ensemble de ce qu'il se passe sur le reste de mon programme, pour faire simple je voudrais que l'utilisateur puisse faire changer un Node de parent, et que ses enfants le suivent dans sa petite migration... Voila ca me paraissait simple mais je colle, j'ai trouvé quelques sujet sur ma recherche du forum, mais aucun ne répond précisément à mon problème :aie:

Merci à vous :)

Salut

voici un petit code que j'avais écris (et très largement inspiré de l'exemple trouvé dans l'aide de Delphi7).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source = Sender) and (Source is TTreeView);
end;
 
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  AnItem: TTreeNode;
  AttachMode: TNodeAttachMode;
  HitTest: THitTests;
begin
  with TTreeView(Sender) do
  begin
    if Selected = nil then Exit;
 
    HitTest := GetHitTestInfoAt(X,Y);
    AnItem := GetNodeAt(X,Y);
    if (HitTest * [htOnItem, htOnIcon, htNowhere, htOnIndent] <> []) then
    begin
      if (htOnItem in HitTest) or (htOnIcon in HitTest) then
        AttachMode := naAddChild
      else if htNowhere in HitTest then
        AttachMode := naAdd
      else if htOnIndent in HitTest then
        AttachMode := naInsert;
      Selected.MoveTo(AnItem, AttachMode);
    end;
  end;
end;

@+ Claudius

07/01/2007, 06h25
Aloneghost

1000 Mercis, je ne pensais pas vouloir utiliser le Drag&Drop mais finalement c'est vraiment confortable :)

Encore merci !