如何获得Treeview的鼠标所在的节点的位置以及它的caption 数值啊?

loyalfox 2002-09-08 10:33:45
如何获得Treeview的鼠标所在的节点的位置以及它的caption 数值啊?
------------------
在线等待!
...全文
62 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
captainwh 2002-09-13
  • 打赏
  • 举报
回复
TreeView1.Selected.AbsoluteIndex //实际位置
TreeView1.Selected.Level //Level
TreeView1.Selected.Text //标题
oracle_lover 2002-09-08
  • 打赏
  • 举报
回复
Treeview1.Items.Item[Treeview1.Selected.AbsoluteIndex].Caption
返回被选中节点的Caption,Treeview1.Selected.AbsoluteIndex就是位置
lyhold 2002-09-08
  • 打赏
  • 举报
回复
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);

var
AnItem: TTreeNode;
AttachMode: TNodeAttachMode;
HT: THitTests;
begin
if TreeView1.Selected = nilthen Exit;
HT := TreeView1.GetHitTestInfoAt(X, Y);
AnItem := TreeView1.GetNodeAt(X, Y);
if (HT - [htOnItem, htOnIcon, htNowhere, htOnIndent] <> HT) then
begin
if (htOnItem in HT) or (htOnIcon in HT) then AttachMode := naAddChild
else if htNowhere in HT then AttachMode := naAdd

else if htOnIndent in HT then AttachMode := naInsert;
TreeView1.Selected.MoveTo(AnItem, AttachMode);
end;
end;
gzllich 2002-09-08
  • 打赏
  • 举报
回复
节点实际位置:selected.absoulteindex
节点级别位置:seleced.level
节点当前级别之位置:select.index
loyalfox 2002-09-08
  • 打赏
  • 举报
回复
同时还得判断出是几级节点,

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧