delphi（treeview问题）

想必现在有很多小伙伴对于delphi treeview问题方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于delphi treeview问题方面的知识分享给大家，希望大家会喜欢哦。

procedure TForm1.FormCreate(Sender: TObject);

var

MyTreeNode:TTreeNode;

未件经芝士回答允许不得转载本文民内标容，否则将视因五为侵权

begin

MyTreeNode:=TreeView1.Items.AddChildFirst(nil,'22');

动方业好它因然此角走名毛住。

TreeView1.Items.AddChild(MyTreeNode,'33');

电加使道果员速身米周包。

TreeView1.Items.AddChild(MyTreeNode,'44');

TreeView1.Items.AddChild(MyTreeNode,'55');

TreeView1.Items.AddChild(MyTreeNode,'66');

TreeView1.Items.AddChild(MyTreeNode,'77');

end;

procedure TForm1.Button1Click(Sender: TObject);

var

MyTreeNode:TTreeNode;

i : integer;

begin

for i := 0 to TreeView1.Items.Count -1 do

begin

MyTreeNode := TreeView1.Items[i];

//条件符合 for example

// if MyTreeNode.Text = '22' then ......

memo1.Lines.Add('当前节点：'+MyTreeNode.Text);

if MyTreeNode.Parent<>nil then

begin

//条件符合 for example

// if MyTreeNode.Text = '22' then ......

memo1.Lines.Add('父节点：'+MyTreeNode.Parent.Text+#13#10);

end;

end;

end;

本文到此结束，希望对大家有所帮助。