Код

procedure TForm1.TreeView1DragOver (...) var  TargetNode, SourceNode :TTreeNode; begin  TargetNode :=TreeView1.GetNodeAt (X, Y);  // Принять перетаскивание с самого себя  if (Source = Sender) fnd (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 (....) 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;

Но почемуто не чего не выходит, может я в чем то ошибся?

DragMode в Auto поставь...

Вот спасибо, забыл действительно это сделать, сенк.....

А кому интересен код, вот выкладываю.....

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
procedure Button1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1DragOver(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.Button1DragDrop(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;

end.