Delphi 拖动treeview菜单节点到右侧列表中.rar

Delphi 拖动treeview菜单节点到右侧列表中，如图所示的示例中，拖动节点可以一直到右侧的列表中，松开鼠标后节点会被保存在右侧列表中，很好的实现了树形菜单TreeView节点的拖动功能。 　　procedure TForm1.TreeView2DragDrop(Sender, Source: TObject; X, Y: Integer); 　　begin 　　 Node1 := TreeView2.Items.Add(nil,TreeView1.Selected.Text); 　　 Node1.ImageIndex := TreeView1.Selected.ImageIndex; 　　end; 　　procedure TForm1.TreeView2DragOver(Sender, Source: TObject; X, Y: Integer; 　　 State: TDragState; var Accept: Boolean); 　　begin 　　 Accept := True; 　　end;