|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/4/29 9:29:11 |
标题: |
|
加入我的收藏 |
楼主: |
我在编程时用了以下语句程序能马马乎乎运行,但不能显示我想要的效果,我希望标签1能显示所选项的text,而标签2显示所选的父节点的text,请告知正确的写法,详细点啊!拜托! label1.caption:=treeview1.Selected.Text; label2.caption:=treeview1.Selected.Parent.Text ; 哪错了啊!
----------------------------------------------
- |
作者: |
sephil (NAILY Soft) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/4/29 10:02:37 |
1楼: |
var ANode: TTreeNode; begin ANode := TreeView1.Selected; if not Assigned(ANode) then begin Label1.Caption := ''; Label2.Caption := ''; Exit; end;
Label1.Caption := ANode.Text; ANode := ANode.Parent; if Assigned(ANode) then Label2.Caption := ANode.Text; end;
----------------------------------------------
Copyright 2008 ? NAILY Soft Click here to redirect to my home Click here to redirect to my blog
|
作者: |
|
2004/4/29 10:33:49 |
2楼: |
label1.Caption:=treeview1.Selected.Text; i:=treeview1.Selected.Index; t:=treeview1.Selected; if not(t.IsFirstNode) then
label2.Caption:=treeview1.Selected.Parent.Text;
----------------------------------------------
-
|
作者: |
|
2004/4/29 10:43:09 |
3楼: |
sephil :谢谢你的再次帮忙! 你给我的代码应该在treeview的什么事件中操作啊,我在DataSource1StateChange事件中引用了该代码,没效果啊!
----------------------------------------------
-
|
作者: |
|
2004/4/29 11:25:42 |
5楼: |
sephil : 我换了TreeView的OnChange事件加上你原来的代码,搞定了,谢谢啊,哈哈!
----------------------------------------------
-
|
|