２つのTreeview (ID:38692)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなこと？ コピー元に子があってもコピーしない procedure TForm6.FormCreate(Sender: TObject); begin TreeView1.DragMode := dmAutoMatic; TreeView2.DragMode := dmAutoMatic; TreeView2.OnDragDrop := TreeView1DragDrop; TreeView2.OnDragOver := TreeView1DragOver; end; procedure TForm6.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer); var TreeNode : TTreeNode; S: String; I: Integer; begin if Source is TTreeView then begin if Assigned(TTreeView(Source).Selected) = True then begin S := TTreeView(Source).Selected.Text; TreeNode := TTreeView(Sender).GetNodeAt(X,Y); if Assigned(TreeNode) = True then begin TTreeView(Sender).Items.AddChild(TreeNode,S); end; end; end; Exit; end; procedure TForm6.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := True; end;