TreeView与ListView之间及自身的拖拽操作

最新推荐文章于 2026-03-27 02:50:05 发布

原创

最新推荐文章于 2026-03-27 02:50:05 发布 · 2.6k 阅读

标签

#listview #integer

收录于

这篇博客详细介绍了如何在Delphi中设置和实现TreeView和ListView组件之间的拖放操作。通过设置DragMode属性为dmAutomatic，然后编写DragOver和DragDrop事件处理函数，实现了在同一组件内部以及两个组件之间的节点移动和交换功能。

首先将TreeView及ListView的DragMode属性设为：dmAutomatic；其后代码如下：

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := False;
if (source is TTreeView) or (source is TListView) then
Accept := True;
end;

procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
tSrcNode, tDesNode: TTreeNode;
begin
tDesNode := TTreeView(Sender).GetNodeAt(X, Y);
if Source is TTreeView then
begin
tSrcNode := TTreeView(Sender).Selected;
tSrcNode.MoveTo(tDesNode, naAddChild);
end;

if Source is TListView then
begin
    TreeView1.Items.AddChild(tDesNode, ListView1.Selected.Caption);
    ListView1.Selected.Delete;
    self.TreeView1.FullExpand;
end;
end;<