豫能控股官网:delphi treeview 控件的使用

来源:百度文库 编辑:高校问答 时间:2024/05/02 10:09:21
怎样实现点击treeview中节点时弹出另一界面,并且当鼠标在节点上时
就像鼠标放在超链接上一样!谢谢帮助
怎样点击节点时触发另一事件(即点击节点,弹出另一界面)

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;

在ONCLICK 事件里 if TreeView1.Selected.text= '值' then Form.show;

“HotTrack”属性设为:“True”