다시 도움을 청합니다.



Treeview 2개를 써서 노드를 이동시키는 문제입니다.

MoveTo를 써보기도 했지만 MoveTo는 동일 트리내에서의 이동에서만 가능한 것 같습니다.



제가 원하는 건 이쪽 트리에서 다른 트리로의 이동문제를 해결하는 것입니다.

(Q&A를 뒤져봤지만 MoveTo만 나옵니다.)

고수님들의 가르침 부탁 드립니다.



아래는 제가 한 소스입니다.

procedure TForm1.TreeViewsDragDrop(Sender, Source: TObject; X, Y: Integer);

var

AnItem: TTreeNode;

SourceTree, TargetTree: TTreeView;

begin

SourceTree := Source as TTreeView;

TargetTree := Sender as TTreeView;



if SourceTree.Selected = nil then Exit;

AnItem := TargetTree.GetNodeAt(X,Y);



TargetTree.Items.AddChild(AnItem, SourceTree.Selected.Text);//이부분을 고치면 될 듯한데 잘 모르겠어요.

SourceTree.Items.Delete(SourceTree.Selected);

end;