2.设Treeview控件的ReadOnly属性为True
解决方案 »
- 出现乱码问题
- 狂散分!!!来者人人有份(分)
- 数据备份
- 有哪位在虾知 hdc 。在线等!
- 怎样实现数据从一个clientdata送到另一个clientdata中?
- 请讨论:(1)COM通信控件的稳定性(2)类似Win2000任务管理器中CPU利用率曲线使用什么控件做最好?
- 请问如何将报表翻页,报表上的哪几个翻页按钮怎么用呀???????
- 怎么读写注册表中的类型为rdBinary的值,要求读函数返回STRING,写函数参数为STRING?
- 请推荐一本关于DELPHI网络编程的书!
- 各位老大,请教一个问题,急急急。。。
- 请问如何实现Foxmail那样的"邮件直接发送到对方的POP3邮箱"的功能?
- 动态创建了一个Tqrsubdetail,如何加入beforprint事件?
设Treeview控件的ReadOnly属性为Trueprocedure 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.
StateImages 设为空即可
begin
node := TreeView1.Items.Item [j] ;
node.ImageIndex := 1 ;
node.SelectedIndex := 1 ;
end ;
123
---234
---234
---234
456
---567
---567
---567
如何得到每个父节点的Node,比如使用GetFirstNode可以得到123但是却得不到456现在关键是这些节点都是动态生成的,不知道如何得到这些父节点阿
123
---234
---234
---234
456
---567
---567
---567
如何得到每个父节点的Node,比如使用GetFirstNode可以得到123但是却得不到456现在关键是这些节点都是动态生成的,不知道如何得到这些父节点阿
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 ;