Discussion :

[Aloneghost]

Bonjour à vous amis programmeurs, je sort d'une nuit de programmation mouvementé (étant donné mon niveau quelque peu... limité ) 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

Merci à vous

[Cl@udius]

Salut

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

Code :

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

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

[Aloneghost]

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

Encore merci !