var
i: integer;
begin
for i := 0 to treeview.Items.Count - 1 do
if treeview.Items.Item[i].Text = 'this is a test' then
begin
treeview.Select(treeview.Items.Item[i]);
treeview.SetFocus;
exit;
end;
end;
设计时是不能选中的,只有在运行程序的时候才可以选。