有关treeview的问题。

Question

怎么使右键单击某个节点时弹出快捷菜单？怎么使其失去焦点时，selected属性值为nil？

Answer 1

1.设置treeview的popmenu属性
2。将selected的属性设置为当前焦点所在node即可

Answer 2

procedure TFormMain.treeview1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
      p: TPOINT;
      Axis_X, Axis_Y: Integer;
      VL_Node: TTreeNode;
begin
      if Button = mbRight then
      begin
            VL_Node := Treeview1.GetNodeAt(X, Y);
            if VL_Node=nil then exit;
            if VL_Node.Selected  then
            begin
                  GetCursorPos(p);
                  Axis_X := p.X;
                  Axis_Y := p.Y;
                  popupmenu.Popup(Axis_X, Axis_Y);
            end;
      end;
end;

Answer 3

OnContextPopup如果在这个事件里再加上ljl0206(让我们一起努力) 的代吗,是否否会好些呢

Answer 4

方法就是 ljl0206(让我们一起努力) 说的就可以 了