动态创建treeview的双击事件怎么写，急，在线等

Question

动态创建了一个treeview，但就是不能编双击事件，我的意思是，双击选中的节点，将节点的text显示到edit中，试了好久都不行，急，在线等
还有就是在用rave做的表格中，显示表格线条。

Answer 1

怎么写啊，我这样写的
edit1.text:=treeview1.selected.caption;提示找不到treeview1

Answer 2

能不能写一个，急用
procedure Ttreeview1.ondblclick(sender:object);
begin
  edit1.text:=treeview1.selected.caption;
end;
这样不行啊

Answer 3

//全部代码，delphi6测试通过
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;//自己加按钮
    Edit1: TEdit;//自己加
    procedure Button1Click(Sender: TObject);
    procedure NewTrClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  NewTr: TTreeView;
begin
  NewTr := TTreeView.Create(Self);//创建一个新的TreeView;
  NewTr.Parent := Form1;
  NewTr.Items.Add(nil,'Node');//添加个根节点
  NewTr.OnClick := NewTrClick;//附加事件
end;procedure TForm1.NewTrClick(Sender: TObject);//定义事件
var
  i: integer;
begin
  For i :=0 to TTreeView(Sender).Items.Count-1 do
    if TTreeView(Sender).Items[i].Selected then
      Edit1.Text := TTreeView(Sender).Items[i].Text;
end;end.

Answer 4

补充：
上面代码是“单击”时候的
如果要实现“双击”
改一句代码就可以了在附加事件处NewTr.OndblClick := NewTrClick;

Answer 5

谢谢  Kshape(伟大的大伟/给我个支点/我就能翘起整个地球仪)，这个问题解决了，不知道谁能够解决第二个问题啊