如何使用treeview目录树控件，它不像菜单那样，没有单击事件啊， 求教！！

Question

就是新建一个目录树，你点击哪个，就会在另一个窗口显示相应的信息！
这个事件在哪儿编好呢！！
劳烦各位了！我将不胜感激！1！

Answer 1

晕，谁说没有点击事件，看看事件里有没有onclick就是，不是双击控件

Answer 2

我也是刚做完：（你点一下，就显示树叶名称）
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    var
   tempNode:TTreeNode;
begin
       tempnode:=treeview1.GetNodeAt(X,Y);
          If tempNode=nil Then Exit;
      if   (TempNode=TreeView1.Selected) then
            showmessage(tempnode.text);
    
end;

Answer 3

procedure TForm1.TreeView1Click(Sender: TObject);
var
   Node: TTreeNode;
begin
   Node:= TreeView1.Selected;
   if Node <> nil then
   begin
     Showmessage(Node.Text);
     ...
     //其他需要的操作
     ...
   end;
end;是这个意思吗？

Answer 4

放一个TreeView1与Edit1,然后：
procedure TForm1.TreeView1Click(Sender: TObject);
var
  N:TtreeNode;
begin
  N:=TreeView1.Selected;
  Edit1.Text:=N.Text;
end;
OK!!!!!!!