TTreeView控件怎么实现点击跟踪啊？

Question

用什么函数？是直接用onClick然后在其中判断点击了哪一个item？

Answer 1

Treeview1.SelectedGetNodeAt(x,y)

Answer 2

我也觉得我说得不太清楚
是这样的，我想实现这样的功能：窗口上有一个TTreeView控件，运行时点击其中的树型目录，我希望在点击树型目录中的根item时（不包括上级item），触发一个事件，我可以在这个事件中做一些处理，那么这个事件应该是什么？另外，因为根item有好几个，我需要在点击不同根item时候做不同的处理，这个应该怎么写？
谢谢：（

Answer 3

是不是都应该在某个事件中统一写，用case之类的语句实现？那么这个事件应该是什么？OnClick？代码中如何判断读取item的值？

Answer 4

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  //这个是在结点改变之前，  Node表示将要到的结点，  AllowChange表示是否允许改变
end;procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  //这个是结点改变之后，  Node表示当前的结点
end;

Answer 5

DWGZ() 说的是选择不同接点啊，

Answer 6

if Treeview1.Selected.Caption =  xxx then 

Answer 7

定义一个TMyNodeInfo 的类每个节点的DATA中创建一个。

Answer 8

当你想在点几触发事件的话，在onclick里写代码：
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.Level<>0 then //这个表示当你选择的不是第一个，也就是你说的（不包括上级item） 
  begin 
  写你想要触发的代码事件
   end;
end;还有你说的有根item有好几个好几个，需要在点击不同根item时候做不同的处理，这个应该怎么写？
这个简单，假如是这有
  1-2
    3
  4-5
    8
那下面代码就可以判断你点几的是4下的还是1下的：
procedure TForm1.TreeView1Click(Sender: TObject);
var thisnode:TTreeNode;
begin
thisnode:=treeview1.select;
where thisnode.Level<>0 do
    reeview1.Selected.Level<>0 then //这个表示当你选择的不是第一个，也就是你说的（不包括上级item） 
  begin 
  写你想要触发的代码事件
   end;
end;

Answer 9

不好意思，下面这个从写：还有你说的有根item有好几个好几个，需要在点击不同根item时候做不同的处理，这个应该怎么写？
这个简单，假如是这有
  1-2
    3
  4-5
    8
那下面代码就可以判断你点几的是4下的还是1下的：
procedure TForm1.TreeView1Click(Sender: TObject);
var thisnode:TTreeNode;
begin
thisnode:=treeview1.select;
where thisnode.Level<>0 do
  begin 
  if thisnode.Level=0 then
    begin  
    if thisnode='1' then 写你想要触发的代码事件
    if thisnode='4'  then   写你想要触发的代码事件
    end;   
   thisnode:=thisnode.Parent;
   end;
end;
具体就这样了，希望对你有帮助

Answer 10

若仅是对根节点，仅需要在TTREEVIEW的ONCLICK事件中判断当前节点的层就行了。

Answer 11

1   bxh2dai(书虫&菜鸟) 的可以实现
 2 
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if Node.HasChildren then
  begin
    //你想干的
  end;
end;