procedure SearchParent(Tree: TTreeView; Root: TTreeNode);
begin
if tree.Selected =nil then exit;
if tree.Selected.Parent<>nil then
begin
ShowMessage(tree.Selected.Parent.Text); //父节点
下面的递归条件怎么写啊
if 递归条件 then
searchparent(tree,'写什么啊');
end;
end;
begin
if tree.Selected =nil then exit;
if tree.Selected.Parent<>nil then
begin
ShowMessage(tree.Selected.Parent.Text); //父节点
下面的递归条件怎么写啊
if 递归条件 then
searchparent(tree,'写什么啊');
end;
end;
begin
if Root =nil then exit;
if Root.Parent <> nil then
begin
ShowMessage(Root.Parent.Text); //父节点
Root:=Root.Parent;
SearchParent(Root);
end;
end;
收分!
procedure ShowNodeParent(node: TTreeNode);
begin
while node<>nil do
begin
ShowMessage(node.Text);
node := node.Parent;
end;
end;