要取treeview的最顶端结点,会有多个,如何遍历并设置文字?
解决方案 »
- indy的idhttp的Request.SetHeaders在indy10不能用了吗?
- delphi编程中用了paradox数据库,然后编完后生成的可运行文件在别的机子上不能运行,因为没把数据库弄过去,该怎么解决,谢谢了!!!
- 关于VCLSkin的问题?
- 关于loadfromfile('test.txt')的菜菜问题???
- 我的软件是在中文系统里做的,现在不支持朝文输入?
- GroupBox的问题?
- 介绍一个可以做一个自己的Google搜索引擎的软件,innerprise的ENTERPRISE SEARCH!!!
- 关于Image控件的使用的问题?
- 怎么样在edit里写入一个小数?
- 急,如何单独控制卡拉OK节目的伴唱音量?
- 请问 TTntTreeNode 是什么控件?
- 谁能帮我了解:windows与delphi是如何相互协调完成消息处理的?
begin
for i := 0 to TreeView.Items.Count -1 do
if TreeView1.Items[i].Level = 0 then
begin
ShowMessage(TreeView.Items[i].Text);
TreeView.Items[i].Text := IntToStr(i)+ TreeView.Items[i].Text
end;
end;