【结贴】[问题]关于控制鼠标右键定位DataTreeView当前点击的节点的一个问题**

hanbei20

http://bbs.justep.com/forum.php?mod=viewthread&tid=4561
根据这里面提供的控制鼠标右键定位当前点击节点的方法，在实际使用时，在空白处点击右键也同样能够弹出自定义右键菜单。
我想在空白处点击右键时不想弹出自定义右键菜单，于是做了如下修改：
procedure TMAINFORM.DataTreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
   pNode:TTreeNode;
   i:Integer;
begin
   if Button = TMouseButton.mbRight then
   begin
      try
         pNode := TDataTreeView(Sender).GetNodeAt(x,y);
         pNode.Selected := True;
      except
         for i := 0 to PopupMenu3.Items.Count do
         begin
            PopupMenu3.Items.Visible:= false;
         end;
      end;
   end;
end;

运行的情况是：在空白处点击右键同样可以弹出自定义右键菜单。是不是我用的方法不对？还是另外有方法控制？

zfang

楼主，你自己跟踪一下pNode的值，根据这个对象返回的是nil还是非nil来控制是否弹出右键。

hanbei20

谢谢，结贴