关于delphi里的Treeviw的问题！

Question

var
  MyTreeNode,MyTreeNode1: TTreeNode;
  Myindex: integer;
begin
  TreeView1.Items.Clear;
  MyTreeNode := TreeView1.Items.Add(nil, 'AAAA');
  MyTreeNode.SelectedIndex := 0;
  Myindex := 1;
  for i := 1 to 10 do  
  begin  
    MyTreeNode1 := TreeView1.Items.AddChild(MyTreeNode, 'asdfasd');
    MyTreeNode1.SelectedIndex  := Myindex;
    Myindex := Myindex + 1;
  end;
end
然后你可以
  if TreeView1.Selected.Index > -1 then
    if TreeView1.Selected.SelectedIndex > 0
thenSelectedIndex 就不同了
注意必须要if TreeView1.Selected.Index > -1 then，否则会出错