如果你想完全排除拖动启动，你必须使用dmManual模式，就像你写的那样，并在OnMouseDown中设置BeginDrag：

if (Button = mbLeft) and 
   (Treeview1.Selected <> nil) and 
   (Treeview1.Selected.Text > 'b') then
        TreeView1.BeginDrag(True);

在本例中，不拖动text='aa'节点，而拖动node 'cc'节点。
也许有时你还需要将Immediate改为False并应用Threshold值（如果你需要点击）

在OnDragOver事件中，您可以测试所选的TTreeNode是否是您不希望拖动的节点，如果是，则可以拒绝拖动。例如：

procedure TMyForm.TreeView1DragOver(Sender, Source: TObject;
  X, Y: Integer; State: TDragState; var Accept: Boolean);
var
  Node: TTreeNode;
begin
  Accept := False;
  if Source = TreeView1 then
  begin
    Node := TreeView1.Selected;
    Accept := (Node <> nil) and (Node <> ANodeThatShouldNotBeDragged);
  end;
end;