郁闷的Treeview节点拖动问题!????????????????

Question

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
   TargetNode:TTreeNOde;
begin
  TargetNode := TreeView1.DropTarget;
  showmessage(targetnode.Text);
  if (TargetNode = nil) or (TargetNode=TreeView1.Selected) then exit;
     //目标为空，目标和源节点是同一个
  TreeView1.Selected.MoveTo(TargetNode,naADDChild);  // ....... //其他设置，如图标，Data属性等。end;
以上代码有错吗?
为什么拖动节点没有反应
Treeview的dropmode属性已设置为dmautomatic

Answer 1

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TTreeView;
end;