如何阻止TTreeView中特定TTreeNode被拖拽？及dmManual模式用法

架构老林

2026-7-26

阻止TTreeView特定节点被拖拽的解决方案

无需切换到dmManual模式的实现方法

不用切换拖拽模式，直接利用OnStartDrag事件就能拦截指定节点的拖拽操作，同时不影响它作为放置目标的功能。

具体操作：

给TreeView绑定OnStartDrag事件处理函数
在事件里获取当前选中的待拖拽节点
判断该节点是否是你要禁止拖拽的目标，若是则通过设置DragObject为nil终止拖拽流程

示例代码（Delphi）：

procedure TForm1.TreeView1StartDrag(Sender: TObject; var DragObject: TDragObject);
var
  CurrentNode: TTreeNode;
begin
  CurrentNode := TreeView1.Selected;
  // 这里以节点Caption为"禁止拖拽"为例，你可以换成自己的判断逻辑
  if Assigned(CurrentNode) and (CurrentNode.Caption = '禁止拖拽') then
    DragObject := nil; // 取消拖拽操作
end;

若使用dmManual模式的操作步骤

如果确实需要切换到手动拖拽模式，按以下步骤操作：

将TreeView的DragMode属性设置为dmManual
添加OnMouseDown事件处理函数，在鼠标左键按下时判断节点是否允许拖拽，允许则手动触发拖拽：

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitNode: TTreeNode;
begin
  if Button = mbLeft then
  begin
    HitNode := TreeView1.GetNodeAt(X, Y);
    if Assigned(HitNode) then
    begin
      TreeView1.Selected := HitNode;
      // 仅允许非目标节点启动拖拽
      if HitNode.Caption <> '禁止拖拽' then
        TreeView1.BeginDrag(False); // False表示不锁定鼠标位置
    end;
  end;
end;