这个问题怎么解决？

[wwwsoft]

procedure TForm1.FormCreate(Sender: TObject);
var
TVS_CHECKBOXES:integer;
begin
SetWindowLong(TreeView1.Handle,GWL_STYLE ,GetWindowLong(TreeView1.Handle,GWL_STYLE) + TVS_CHECKBOXES);

end;

在窗体上放一个TreeView1
----------------------------

怎样实现选中时把路径显示在edit1.text

[nyf1220]

什么意思？

[wwwsoft]

在前有方框，选中时显示选中行的路径。

[HiMrXia]

OnSelectedChanged event

[wwwsoft]

listview1里设置一些内容可见方框。

[FrameSniper]

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
Edit1.Text :=Node.Text ;
end;

[yuki111111111]

procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
var
l:integer;
begin
l:=node.level //显示在树形结构的层数
Edit1.Text :=Node.Text ;//该层的内容
end;

[wwwsoft]

没有人会吗？
问题没有解决，怎么给分呀？。