5,388
社区成员
发帖
与我相关
我的任务
分享这个问题怎么解决？
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
var
TVS_CHECKBOXES:integer;
begin
SetWindowLong(TreeView1.Handle,GWL_STYLE ,GetWindowLong(TreeView1.Handle,GWL_STYLE) + TVS_CHECKBOXES);
end;
在窗体上放一个TreeView1
----------------------------
怎样实现选中时把路径显示在edit1.text
...全文
请发表友善的回复…
发表回复
wwwsoft 2003-08-31
- 打赏
- 举报
没有人会吗？
问题没有解决，怎么给分呀？。
问题没有解决，怎么给分呀？。
yuki111111111 2003-08-31
- 打赏
- 举报
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
var
l:integer;
begin
l:=node.level //显示在树形结构的层数
Edit1.Text :=Node.Text ;//该层的内容
end;
var AllowChange: Boolean);
var
l:integer;
begin
l:=node.level //显示在树形结构的层数
Edit1.Text :=Node.Text ;//该层的内容
end;
FrameSniper 2003-08-30
- 打赏
- 举报
procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);
begin
Edit1.Text :=Node.Text ;
end;
var AllowChange: Boolean);
begin
Edit1.Text :=Node.Text ;
end;
wwwsoft 2003-08-30
- 打赏
- 举报
listview1里设置一些内容可见方框。
HiMrXia 2003-08-30
- 打赏
- 举报
OnSelectedChanged event
wwwsoft 2003-08-30
- 打赏
- 举报
在前有方框，选中时显示选中行的路径。
nyf1220 2003-08-30
- 打赏
- 举报
什么意思？
