if Treeview1.Selected.Text='选中的字符串' then
begin
Treeview1.Selected.Focused:=True;
Treeview1.Selected.Expand :=True;
end;
begin
Treeview1.Selected.Focused:=True;
Treeview1.Selected.Expand :=True;
end;
解决方案 »
- 请教,Delphi 能 读取 网络地址里的 TXT 内容吗?
- 在下沙上大学的来留个名
- MS SQL Server和Access分别取得随机记录(随机抽题)之完美篇
- 请问 GLScene 如何获得 一个 3D 物体 在 GLSceneViewer 的 显示 坐标 ??????????????? 急!!!!!!!!!!!!!!!!!!
- 将一个数据库倒到另一个数据库
- D6中的XML控件使用问题
- 设置字体颜色的问题?
- 请救:关于WebBrowser!!!急!!
- service isapi
- 请问我用什么工具能知道我的设计的程序里用了那些DLL或者其他资源?
- 有用delphi开发电子商务经验的高手请进.
- qq的聊天记录控件是什么?ListBox?RichEdit??
for I := 0 to treeview.items.count - 1 do
begin
if treeview.items[I].text = '***' then
//.....
end;
2
if not tndfound.visible then
tndfound.parent.expand(false);
tndfound.selected := true;