delphi treeview 控件的使用

Posted 2023-04-24

怎样实现点击treeview中节点时弹出另一界面，并且当鼠标在节点上时
就像鼠标放在超链接上一样！谢谢帮助
怎样点击节点时触发另一事件（即点击节点，弹出另一界面）

参考技术A “HotTrack”属性设为：“True” 参考技术B 在ONCLICK 事件里 if TreeView1.Selected.text= '值' then Form.show; 参考技术C onmonsedown事件：
AnItem: TTreeNode;
HT: THitTests;
p:Tpoint;
begin
if self.tv_area.Selected = nil then Exit;
HT := tv_area.GetHitTestInfoAt(X, Y);
AnItem := tv_area.GetNodeAt(X, Y);
if (htOnItem in HT) or (htOnIcon in HT) then
begin
AnItem.Selected:=true;
if AnItem.text='xxx' then
//......
end;
end;

Delphi TreeView – 自动展开树形结构

Delphi TreeView – 自动展开树形结构

---

当处理完TreeView控件树形结构的数据后，需要默认自动全部展开，可以用到TreeView的Expanded属性。

1 2 3 4 5 6 7 8 9 10

var       icount : integer; begin RzTreeView1.Items.EndUpdate; //示例中用的是Raize中的RzTreeView组件 for icount := 0 to RzTreeView1.Items.Count-1 do       RzTreeView1.Items[icount].Expanded:=True;   RzTreeView1.Items.EndUpdate; end;