关于Ttreeview控件的使用问题 (50分)

F

ftb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #1

我想在使用TTreeview能够识别我的鼠标选中子目录的根目录。使用哪一个
含数？？？或用什么方法？？如：

　　　　　　　　根目录：　　　11111111
　　　　　　　　　　　　　　　　　 22222222
　　　　　　　　　　　　　　　　　　　　　　3333333333

在我选中“333333333”时，这一行是“111111111”的子目录，又是“2222222222”的子目录，怎么
求出这两个母目录“2222222”和“11111111111”呢？

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #2

用递归做啊！！！

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #3

TreeView1.Selected.Parent.Text
TreeView1.Selected.Parent.Parent.Text

 

F

ftb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #4

to yeath:
怎么递归法，可以举个例子吗？先谢了！！

 

Y

yeath

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
fParent:TTreeNode;
sStr:String;
begin
if TreeView1.Selected<>nil then
fParent := TreeView1.Selected.Parent;
sStr := '';
while fParent<>nil do
begin
sStr := sstr + fParent.text;
fParent := fParent.Parent;
end;
showmessage(sstr);
end;

 

F

ftb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #6

多人接受答案了。

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-10

• #7

var
curNode, parentNode, topNode: TTreeNode
begin
curNode := Node;///33333这个
parentNode := curNode.Parent;//22222父节点
topNode := curNode;
while Assigned(topNode.Parent) do
begin
topNode := topNode.Parent;
end
....topNode//topNode是33333的顶层节点1111111111
end;