rt thanks!
解决方案 »
- 请问大家遇到过这样的问题吗
- 哪位朋友有带注册码的Multilizer6.0以上的工具,传一个谢谢!
- 如何使用ClientDataSet添加一条新的纪录到数据库?
- 大家好,谢谢支持
- 尽情赐教!
- 菜鸟求解~~ 100送只送最历害的网虫~~~~
- 请教Raptor(猛禽)同志:如果通过SocketConnect创建COM+组件接口,该COM+组件不是从IAppServer继承而来.
- 怎么把剪贴板的图,贴到Image1上去??
- 马上给分:如何把DBTEXT中显示的数据做成超级联接的形式?对于EMAIL的呢?写出代码?
- 一个关于DBGRID的小问题,高手快来拿分!!
- 编程控制PDF文件
- Delphi如何实现Http代理登陆的功能??请进!很急
tv_1.autoExpand:=true;
然后
currnode.Selected:=true;
如:
var
itemcount:integer;
currnode:ttreenode;
begin
itemcount:=tv_1.Items.Count;
currnode:=tv_1.Items[0];
for j:=1 to itemcount do
begin
if currnode.text=你要展开节点.text then
begin
currnode.Selected:=true;
break;
end;
currnode:=currnode.GetNext;
end;
end;
刚找了一下。
直接设置节点的 Expanded为真就可以了。