procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); var   node: TTreeNode; begin   if Boolean(TreeView1.GetNodeAt(X,Y)) then   begin     node := TreeView1.GetNodeAt(X,Y);     Text := node.Text;   end; end; 来自为知笔…

procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState;   X, Y: Integer); var   Node: TTreeNode; begin   with TreeView1 do   begin     Node := GetNodeAt(X, Y);     ShowHint := (Node <> nil);     if ShowHint then     begin       Hint…

添加项目 TreeView1.Items.Add(nil,'ABC');       删除选中的节点 TreeView1.Selected.Delete;   删除鼠标右键选中的节点   var     node1:TTreeNode; procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); begin     node1:=TreeView1.GetNodeAt(x,y…