这个问题怎么解决?
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