使用TTreeView的问题(100分)

P

pp虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #1

我定义一个TTreeView控件，结构大概如图：
+编号
-ts00001
-ts00002
-ts00003
-ts00004
等等
我想通过输入编号值得到对应的itemindex,例如输入ts00002得到1，ts00003得到2，我想用indexof()实现但不知道怎么实现，搞了半天也没有高出来，急死了，各位大哥救救我，小弟谢先了

 

Z

zhousi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #2

for i:=0 to treeview.items.count-1 do
begin
node:=treeview.selected;
if node.text=ts00002 then
treeview.Items.Item.Index
end;

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #3

这个方法对你这个两层是可以的，CurNode就是要设置的
CurNode.ItemIndex := TreeView.Items[0].IndexOf(CurNode)+1

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
node: ttreenode;
begin
for i:=0 to treeview1.items.count-1 do
begin
node:=treeview1.Items.Item;
if node.text=edit1.Text then
showmessage(inttostr(node.Index));
end;
end;

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-29

• #5

如果你想得的是此目录下的相对索引上面可以，但想知道的是绝对索引值即在此treeview中
可用来作为标志的索引就需要用AbsoluteIndex了
if 符合条件 then
itemindex:=treeview.Selected.AbsoluteIndex;

 

K

kingson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #6

如果象這樣的結構怎麼處理:
+一級部門
+二級部門
-張三
-李四
(即一級部門展開是二級部門,二級部門展開有員工姓名)
這樣的結構怎麼實現?

 

P

pp虫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-04

• #7

多人接受答案了。