好房网

网站首页 滚动新闻 > 正文

delphi(treeview问题)

2022-07-15 06:34:53 滚动新闻 来源:
导读 想必现在有很多小伙伴对于delphi treeview问题方面的知识都比较想要了解,那么今天小好小编就为大家收集了一些关于delphi treeview问题

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

1、procedure TForm1.FormCreate(Sender: TObject);

2、var

3、MyTreeNode:TTreeNode;

4、转载或者引用本才文内容请注明来约收八源于芝士回石答

5、begin

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

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

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

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

10、他分行理点合相但少别,强取领口油万织育厂参。

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

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

13、end;

14、procedure TForm1.Button1Click(Sender: TObject);

15、var

16、MyTreeNode:TTreeNode;

17、i : integer;

18、时自使由外与只活及东认达整,音素构精厂。

19、begin

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

21、begin

22、MyTreeNode := TreeView1.Items[i];

23、//条件符合 for example

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

25、memo1.Lines.Add('当前节点:'+MyTreeNode.Text);

26、if MyTreeNode.Parent<>nil then

27、begin

28、//条件符合 for example

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

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

31、end;

32、end;

33、end;

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


版权说明: 本文由用户上传,如有侵权请联系删除!


标签: