不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

关于树型控件两问!

楼主Linux2001（闭关开发中）2002-02-20 08:33:01 在 Delphi / VCL组件开发及应用提问

现在有两个树
123
---234
---234
---234
345
---456
---456
---456
每个接点和父接点前都有图标显示,如何在选择这些接点的时候让他们显示自己的图标,而不是显示其他的图标

2.如何可以让双击接点时让它无法从命名? 问题点数：50、回复次数：17Top

1 楼Liusp（夜深千帐灯）回复于 2002-02-20 08:45:59 得分 5

2.设Treeview控件的ReadOnly属性为TrueTop

2 楼Liusp（夜深千帐灯）回复于 2002-02-20 08:49:58 得分 0

1.把TreeView的Images和StateImages分别对应不同的 ImageList即可Top

3 楼h_x_k（一缕清烟）回复于 2002-02-20 08:53:18 得分 0

就是吧Top

4 楼Linux2001（闭关开发中）回复于 2002-02-20 08:57:53 得分 0

Liusp(夜深千帐灯) 请说详细一些,我要的就是,当接点被选中的时候仍然不变图标Top

5 楼Linux2001（闭关开发中）回复于 2002-02-20 09:48:06 得分 0

Liusp(夜深千帐灯) 请说详细一些,我要的就是,当接点被选中的时候仍然不变图标

Top

6 楼ringotu（Ringo）回复于 2002-02-20 09:50:43 得分 5

1.设置Node.ImageIndex以及Node.SelectedIndexTop

7 楼ringotu（Ringo）回复于 2002-02-20 09:51:32 得分 0

1.设置Node.ImageIndex以及Node.SelectedIndexTop

8 楼ringotu（Ringo）回复于 2002-02-20 09:53:00 得分 0

设置每一个节点的Selectedindex以及ImageIndex属性Top

9 楼Linux2001（闭关开发中）回复于 2002-02-20 10:00:45 得分 0

原代码写一写吧,我昨天全部试过了啊,没有成功Top

10 楼zws（）回复于 2002-02-20 10:05:22 得分 5

上边说的已经很清楚拉Top

11 楼dx_cyb（剑）回复于 2002-02-20 10:26:29 得分 15

1.把TreeView的Images和StateImages分别对应不同的 ImageList即可
设Treeview控件的ReadOnly属性为True

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var I:integer;
begin
for I:=0 to treeview1.items.count-1 do
if treeview1.items.item[i].selected
and (treeview1.items.item[i].stateindex<>1)
then treeview1.items.item[i].stateindex:=1
else if treeview1.items.item[i].selected then
treeview1.items.item[i].stateindex:=2;
end;

end.
Top

12 楼Liusp（夜深千帐灯）回复于 2002-02-20 10:37:57 得分 0

"当接点被选中的时候仍然不变图标",如果你不想改变图标，你把TreeView控件的
StateImages 设为空即可

Top

13 楼kuangning（郎之间）回复于 2002-02-20 12:56:53 得分 10

for j := 0 to TreeView1.Items.Count -1 do
begin
node := TreeView1.Items.Item [j] ;
node.ImageIndex := 1 ;
node.SelectedIndex := 1 ;
end ;Top

14 楼Linux2001（闭关开发中）回复于 2002-02-21 08:14:45 得分 0

现在的问题是比如
123
---234
---234
---234
456
---567
---567
---567
如何得到每个父节点的Node，比如使用GetFirstNode可以得到123但是却得不到456现在关键是这些节点都是动态生成的，不知道如何得到这些父节点阿Top

15 楼Liusp（夜深千帐灯）回复于 2002-02-21 08:25:59 得分 0

同意kuangningTop

16 楼Linux2001（闭关开发中）回复于 2002-02-21 08:37:12 得分 0

17 楼kuangning（郎之间）回复于 2002-02-21 09:01:05 得分 10

for j := 0 to TreeView1.Items.Count -1 do
begin
node := TreeView1.Items.Item [j] ;
node.ImageIndex := 1 ;
node.SelectedIndex := 1 ;
Pnode := Node.Parent ;//父接点

end ;
Top