在一个TreeView控件中，知道某个结点的text的内容和该结点的index,如果定位到该结点，急急急！

Question

在一个TreeView控件中，知道某个结点的text的内容和该结点的index,如果让树控件定位到该结点

Answer 1

看看这个可能会有点帮助
procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
begin
  J := 0;
  if Assigned(TreeView1.Selected) then
    for I := 0 to TreeView1.Items.Count - 1 do
      if TreeView1.Items[I] = TreeView1.Selected then begin
        J := I + 1;
        Break;
      end;  for I := J to TreeView1.Items.Count - 1 do
    if TreeView1.Items[I].Text = Edit1.Text then begin
      TreeView1.Selected := TreeView1.Items[I];
      TreeView1.SetFocus;
      Exit;
    end;
  ShowMessage('No');
end;

Answer 2

只能搜索了吧
for I := 0 to TreeView1.Items.Count - 1 do
   if (TreeView1.Items[I].index=你的index) and (TreeView1.Items[I].Text=你的text) then
   begin
     treeview.items[i].selected := TRUE;      
     treeview.items[i].focused := TRUE;
   end;