为什么 treeview 不能多选

Question

 treeview1.MultiSelect := true;
 for i := 1 to treeview1.Items.Count - 1 do
      begin
        treeview1.items.item[i].Selected := true;
end;
为什么最后是选择的最后一行呢?

Answer 1

treeview1.MultiSelect := true; 
for i := 1 to treeview1.Items.Count - 1 do 
      begin 
        treeview1.items[i].Selected := true; 
end; 
为什么最后是选择的最后一行呢?

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  t: tList;
begin
  TreeView1.SetFocus;
  t:=tlist.Create;
  try
  for i:=0 to treeview1.Items.Count-1 do
  t.Add(TreeView1.Items[i]);
  treeview1.Select(t);
  finally
    t.Free;
  end;
end;