treeview的控制问题。(50分)

W

wy0311

Unregistered / Unconfirmed
GUEST, unregistred user!
一个treeview, 如下:

根节点
1111
aaaa
bbbb
2222
3333
4444
5555
6666
7777
8888
9999
0000

如果当前节点在 bbbb,如何得到并选取节点 8888; 不用鼠标选取,由程序控制。
 
树型控件的各个节点数据是可以保存到文件的。上例保存到文件后的样子如下:
1111
aaaa
bbbb
2222
3333
4444
5555
6666
7777
8888
9999
0000
只有很明确地知道项目节点,从文件就可以读出来。
不用这个方法,你就要研究 TV_ITEM 这个数据结构。
 
以下方法的前提是: 你的节点名是不能重复的!

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to TreeView1.Items.Count-1 do
begin
if TreeView1.Items.Text = '8888' then
begin
TreeView1.Items.Selected:=True;
TreeView1.Items.MakeVisible;
TreeView1.SetFocus;
break;
end;
end;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to treeview1.Items.Count-1 do
if treeview1.Items.Text='8888' then
begin
treeview1.Items.MakeVisible ;
treeview1.selected:=treeview1.Items;
treeview1.setfocus;
break;
end;
end;
 
同意楼上
 
多人接受答案了。
 
顶部