怎样实现点击treeview中节点时弹出另一界面,并且当鼠标在节点上时
就像鼠标放在超链接上一样!谢谢帮助
怎样点击节点时触发另一事件(即点击节点,弹出另一界面)
delphi treeview 控件的使用
答案:3 悬赏:20 手机版
解决时间 2021-02-15 13:17
- 提问者网友:浪荡绅士
- 2021-02-14 21:49
最佳答案
- 五星知识达人网友:罪歌
- 2021-02-14 22:56
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;
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;
全部回答
- 1楼网友:深街酒徒
- 2021-02-15 00:57
在ONCLICK 事件里 if TreeView1.Selected.text= '值' then Form.show;
- 2楼网友:风格不统一
- 2021-02-15 00:15
treeview的使用很简单呀。放一个在窗体上,然后双击该组件,在打开的“treeview items editor”对话框中,输入节点名称就行了。
然后在treeview 的onchange事件中:
procedure tform1.treeview1change(sender: tobject; node: ttreenode);
begin
showmessage('你单击了节点'+node.text);
end;
qq:47062531
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯