各位大大好:
如下图,当我按button时,游标会从aaa跳到222,但再按一下时,就会出错,下面是我的code,不知哪里出错了?
不胜感激!
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to treeview1.Items.Count-1 do
begin
if pos(treeview1.Selected.Parent.Text, treeview1.Items.Item[i].Text)>0 then
begin
treeview1.selected:=treeview1.Items.Item[i];
treeview1.setfocus;
end;
end;
end;

附加檔案：4a126cc3bf761_未命名.JPG

編輯記錄

如果只是要回到上一層, 應該可以直接這樣做
TreeView1.Selected := TreeView1.Selected.Parent;
TreeView1.SetFocus;

------
額有朝天骨,眼中有靈光

多谢小傑克大大!