var lp: integer; begin for lp := 0 to treeview1.items.count - 1 do begin if trim(uppercase(treeview1.items[lp].text)) = 'TEST' then begin treeview1.items[lp].selected := true; break; end; end; end
var treeNode: TTreeNode; begin // 先遍历查找 treeNode := TreeView1.Items[0]; while (treeNode <> nil) and (treeNode.Caption <> 'test') do treeNode := treeNode.GetNext; // 找到后就选中它 if treeNode <> nil then treeNode.Selected := True; end;
要是这样的话,用个遍历找,找到了就赋给Treeview.Selected ,就行了
Treeview.Selected := test;
例如:
---dfgdf
---dfdfd
------test
------tdd
---dfdf
lp: integer;
begin
for lp := 0 to treeview1.items.count - 1 do
begin
if trim(uppercase(treeview1.items[lp].text)) = 'TEST' then
begin
treeview1.items[lp].selected := true;
break;
end;
end;
end
treeNode: TTreeNode;
begin
// 先遍历查找
treeNode := TreeView1.Items[0];
while (treeNode <> nil) and (treeNode.Caption <> 'test') do
treeNode := treeNode.GetNext; // 找到后就选中它
if treeNode <> nil then
treeNode.Selected := True;
end;
treeNode.Caption <> 'test' 改为: treeNode.Text <> 'test'
showmessage('selected');