双击treeview的某一节点时的事件如何定义啊？

Question

手工建了一个treview.并增加个几个节点。请问双击treeview的某一节点时的事件如何定义啊？

Answer 1

什么意思？
procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
   showmessage(TreeView1.Selected.Text);
end;

Answer 2

-_-...procedure TForm1.Button1Click(Sender: TObject);  //建树举例
var
  Node : TTreeNode;
begin
  Node := TreeView1.Items.AddFirst(nil, 'TRYAGAIN');
  with TreeView1.Items.AddChild(Node, 'Child1') do
    Data := Ptr(101);
  with TreeView1.Items.AddChild(Node, 'Child2') do
    Data := Ptr(102);
end;procedure TForm1.TreeView1DblClick(Sender: TObject); //双击事件
begin
  Case integer(TreeView1.Selected.Data) of
    101 : begin showmessage('当前选中的是Child1'); {Do something} end;
    102 : begin showmessage('当前选中的是Child2'); {Do something} end;
    end;
  //if TreeView1.Selected.Text = 'Child1' then  //这样也可
  //  showmessage('当前选中的是Child1');
end;