请问treeview怎么用我看了好几个例子还没不太明白!自己写一个也报错,大家给看看!
var node : ttreenode;
beging
treeview1.items.add(node,'111111');
treeview1.items.addchild(node,'22222');
end;好像不对,不太明白到底怎么创建一个树,希望能给一个简单的例子!谢谢
var node : ttreenode;
beging
treeview1.items.add(node,'111111');
treeview1.items.addchild(node,'22222');
end;好像不对,不太明白到底怎么创建一个树,希望能给一个简单的例子!谢谢
解决方案 »
- 100分求能直接使用的Delphi 7 从 SQL Server 2005 按条件导出数据到 excel 的代码。
- 紧急求助关于Chart数据实时显示的问题
- C#程序员,临时要修改delphi程序,超菜鸟问题请帮忙
- action用法
- 十万火急!求:把sqlserver里的word用olecontainer读取到delphi里
- 在线等待一个问题!on line!
- 关于DBgrid数据显示
- 高手們過來討論討論 一個3層結構的程序書寫風格的問題??
- 请问如何用DELPHI实现拨号连接服务器?
- 这个提示是什么意思?
- 怎样把TDBGird控件显示的列表打印出来?
- 为何修改DATAGRID中数据时,第一次并没有读出需要修改的行信息?
procedure TForm1.Button2Click(Sender: TObject);
var node:ttreenode;
begin
with treeview1.Items do
begin
clear;
node:=add(node,'1111');
addchild(node,'22222');
end;
end;但一楼那个代码就不行,两个有区别吗?
如果把一楼的treeview1.items.add(node,'111111'); 改成node:=treeview1.items.add(nil,'11111');就可以了
你创建父节点的时候必须用NIL,此时ADD方法将返回一个节点,你把这个节点赋值给Node变量。
然后你创建子节点就可以用Node变量了,这个子节点将以Node为父节点。
var node : ttreenode;
beging
node:=treeview1.items.add(nil,'111111');
treeview1.items.addchild(node,'22222');
end;
你的node没有指向一个ttreenode,又没有初始化为nil,会报错也很正常
var node:ttreenode;
begin
with treeview1.Items do
begin
clear;
node:=add(node,'1111');
addchild(node,'22222');
end;
end;
这个不会报错,我也很奇怪。我觉得也应该报错,应该是node:=add(nil,'1111');