右键点击TreeView中节点的level等于1，3，5时弹出快捷菜单，其他level不弹出。如何做？

Question

还是有问题：点击右键两次，才出现快捷菜单！我用WIN2000 PROFESSIONAL

Answer 1

procedure TfrmMain.TV1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Node:TTreeNode;
begin
  Node:=TV1.GetNodeAt(X,Y);
  if Node<>nil then Node.Selected:=True;
  TV1.PopupMenu :=nil;
  if button=mbright then
  begin
    case Node.Level of
      1,3,5:
        begin
          TV1.PopupMenu :=popMeu;
          //加一句使TPopupMenu弹出的语句，我忘了怎么写了
        end;
    end;
  end;
end;