高手指点：TreeView几点技巧？

Question

各位大侠：
    有谁有Treeview的树节点的动态拖动（注： 鼠标选择节点A，然后拖动到B节点上）？在线等待；谢谢；

Answer 1

1,在treeview控件的onDragOver事件中添加：
Accept := Source is TTreeView;
2，再OnDragDrop事件中添加：procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
     MyNode: TTreeNode;
     MyMode: TNodeAttachMode;
begin
     if (Sender is TTreeView) and (Source is TTreeView) then
     begin
          MyNode := Form1.TreeView1.GetNodeAt(X, Y);
          if MyNode <> nil then
          begin
               MyMode := naInsert;
               Form1.TreeView1.Selected.MoveTo(MyNode, MyMode);
          end;
     end;
end;

Answer 2

procedure Tform_txl.bsSkinTreeView1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var I:integer;
  begin
with (Sender as TbsSkinTreeView) do
begin
I:= GetNodeAt(X,Y).Level;
end;
if (I=0 )and (bsSkinTreeView1.Selected.Level=1) then Accept:= True else  Accept := false;//限制一级树的拖放 end;procedure Tform_txl.bsSkinTreeView1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
  var I:integer;
begin
with (Sender as TbsSkinTreeView) do
begin
 ItemS.AddChildObject(GetNodeAt(X,Y),bsSkinEdit1.Text,Pointer( GetNodeAt(X,Y).Text)).ImageIndex:=1; //添加树到 拖放的地方//=======================================修改数据
dm.ADQ_txl.Edit;
dm.ADQ_txl.FieldByName('类别').AsString:=GetNodeAt(X,Y).Text;
dm.ADQ_txl.Post;
//==================================================
bsSkinTreeView1.Selected.Delete;
//删除树根
end;
end;

Answer 3

在别的地方看到的 非本人制作~~~~~~~~~~~~
Treeview用于显示按照树形结构进行组织的数据。     Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定形指针(Untyped Pointer)，可以指向一个与节点相联系的数据结构。
　　
     每一个节点下子节点形成这一节点的Items属性，当前节点有一个唯一的Index(TreeNode的Index属性)，用于说明子节点在Items中的位置，每一个节点下的子节点是顺序编号的，第一个是0，第二个是1，依次类推。用IndexOf方法获得子节点的顺序，绝对顺序(AbsoluteIndex)则是指从Treeview第一个项开始的顺序值，第一个是0，如此推下去。Item属性则根据Index的值返回当前节点的第Index个子节点。Count则表明属于此项的所有子节点的数量。用MoveTo方法将Item由一个位置移到另一个位置。     Expanded属性表明是否所有的子项都全部展开(包括子项的子项)，为True表示全部展开。IsVisible属性表明一个项是否在树中能被看到，如果树全部展开那么这个Item是肯定可以被看到。     HasChildren属性表明一个项是否有子项。 GetFirstChild, GetLastChild, GetPrevChild,and GetNextChild分别返回当前项子项的第一个、最后一个和前一个、后一个项。     GetNextSibling and GetPrevSibling则返回在同一Level下的下一个和上一个项。GetNextVisible and GetPrevVisible则返回能看得到的下一个和上一个项。如果一个节点有Parent，则HasAsParent方法返回True. Parent为当前项的父项。Focused属性确定焦点是否落在此节点上，被Focus时会一个标准的方框围住。很显然，只有一个节点会被聚焦。      Selected属性表明一个节点是否被选中，同样只有一个节点会被选中。     DropTarget属性表明节点在拖动操作中是源还是目标。     .1.添加、删除、修改节点：
     静态的方法可以在设计时通过Items的编辑器设置各节点的内容。
     在添加和删除前必须保证有节点被选中(Treeview.Selected = nil)用AddFirst, AddFirstChild, AddChild等先添加根节点，如Treeview.Items.AddFirst( nil, 'Root')；然后以此为基础，添加此项的子节点。     删除节点
     Treeview.Selected.Delete     编辑节点内容
     Treeview.Selected.EditText     注意：由于根节点没有父节点 (TTreeNode.Parent= nil)
     此外，在大批量添加数据到Treeview中时最好使用
　　 TreeView.Items.BeginUpdate;
　　 添加节点
　　TreeView.Items.EndUpdate
    这样能加快显示速度。    2.在节点上添加图象
    Treeview中几个与图象相关的属性：
　　SelectedIndex：当节点被选中时在TimageList 中选什么样的图象
　　OverlayIndex：选那副图象作为掩图（一幅图象透明地显示在另一幅图象的前面），比如一个节点不可用时加一副X图象在其前面。
　　ImageIndex：在常态时选用的图的序号
　　StateIndex： 在StateImages这个ImageList中对应的序号，-1时不显示图象
　　比较典型的，象在文件管理器中的所显示的一样，Treeview控件在节点之前也可以显示图象。在Form中放置一ImageList控件，加入几个图片，分别被Index为0,1,…在Treeview的Image属性项填入你所加入的ImageList的控件名称。TreeNode的ImageIndex表示节点未被选中时(Selected=nil)的图片序号，SelectedIndex表示节点被选中时图片序号。    3.关于Level
    Level的概念可以用下图表示：
    Level0　　 Level1 Level2    4.排序
    SortType决定什么时候进行排序；
    TreeView.AlphaSort对节点进行排序，如果不能满足要求，你可以定义自己的CustomSort方法。    5.Drag&Drop操作，与标准的拖放操作使用方法一样----------------------------------------------------------------------------
TreeView的使用方法 基本信息:
TreeView 是一个显示树型结构的控件,每一个节点都是一个新类,使用具有代表性
每个节点都有四个值:TEXT:显示文字 Image Index:显示图形序号,Selected Index:State Index:(1)建立目录项(本例中使用的TREEVIEW名称为:TvwTips)增加根目录下的节点:(节点)
var
CatNode : TTreeNode; //先建立一个TREEVIEW使用的子对象
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
{ 在根标题下建立一个新的子标题 }
CatNode := TvwTips.Items.AddChild( 
TvwTips.Items.GetFirstNode,'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允许用户改变这个标题 }
end;增加下一级目录(内容):
var
ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
的子对象
VersionNum : Integer;
begin
TvwTips.SetFocus; //将焦点置到这个TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出当前的选中节点 }
if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
ParentNode := TvwTips.Selected.Parent;TipNode := TvwTips.Items.AddChildObject( ParentNode,'New 
Subject',Pointer( VersionNum ) );
TipNode.ImageIndex := 3; { Normal tip bitmap }
TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
TipNode.MakeVisible; { Move new tip node into view }
TipNode.EditText; { Immediately allow user to edit subject }
EnableTreeViewFunctions( TipNode.Level );
RtfTip.Clear;
RtfTip.Modified := False;
end;(2)说明
TvwTips.Items.GetFirstNode 返回TREEVIEW的第一个节点,函数类型为:TTreeNode 
TvwTips.Items.Count 返回当前TreeView的全部节点数,整数
TvwTips.Selected.Level 返回当前选中节点的在目录树中的级别,根目录为0
TvwTips.Selected.Parent 返回当前选中节点上级节点,函数类型为:TTreeNode 

Answer 4

你看一下这个例子吧,TREETEXT.TXT是视图结构,你可以自已建一个.
unit TreeForm;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Menus;type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    MainMenu1: TMainMenu;
    Options1: TMenuItem;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Root1: TMenuItem;
    Buttons1: TMenuItem;
    Lines1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Root1Click(Sender: TObject);
    procedure Buttons1Click(Sender: TObject);
    procedure Lines1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  TreeView1.LoadFromFile (
    ExtractFilePath (Application.ExeName) + 'TreeText.txt');
end;procedure TForm1.Root1Click(Sender: TObject);
begin
  TreeView1.ShowRoot := not TreeView1.ShowRoot;
  Root1.Checked := TreeView1.ShowRoot;
end;procedure TForm1.Buttons1Click(Sender: TObject);
begin
  TreeView1.ShowButtons := not TreeView1.ShowButtons;
  Buttons1.Checked := TreeView1.ShowButtons;
end;procedure TForm1.Lines1Click(Sender: TObject);
begin
  TreeView1.ShowLines := not TreeView1.ShowLines;
  Lines1.Checked := TreeView1.ShowLines;
end;procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  TargetNode, SourceNode: TTreeNode;
begin
  // 获取目的节点
  TargetNode := TreeView1.GetNodeAt (X, Y);
  if (Source = Sender) and (TargetNode <> nil) then
  begin
    Accept := True;
    // 获取源节点
    SourceNode := TreeView1.Selected;
    // 检查目的节点的层次
    while (TargetNode.Parent <> nil) and
        (TargetNode <> SourceNode) do
      TargetNode := TargetNode.Parent;
    //如果没有移动则不允许拖动
    if TargetNode = SourceNode then
      Accept := False;
  end
  else
    Accept := False;
end;procedure TForm1.TreeView1DragDrop(Sender, Source: TObject;
  X, Y: Integer);
var
  TargetNode, SourceNode: TTreeNode;
begin
  TargetNode := TreeView1.GetNodeAt (X, Y);
  if TargetNode <> nil then
  begin
    SourceNode := TreeView1.Selected;
  {将源节点移动到目的节点 }
    SourceNode.MoveTo (TargetNode, naAddChildFirst);
    TargetNode.Expand (False);
    TreeView1.Selected := TargetNode;
  end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  TreeView1.SaveToFile (
    ExtractFilePath (Application.ExeName) + 'TreeText.txt');
end;procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TreeView1.BeginDrag (False); 
end;end.