J
jinghj
Unregistered / Unconfirmed
GUEST, unregistred user!
1.我想让treeview指定level小于3的项展开该怎么做
2.我指定一个值，想让控件定位到text等于这个值的节点该怎么做
2.我指定一个值，想让控件定位到text等于这个值的节点该怎么做
J
jinghj
Unregistered / Unconfirmed
GUEST, unregistred user!
或者我想指定某个节点的上级节点全部展开该怎么做
S
Supermay
Unregistered / Unconfirmed
GUEST, unregistred user!
我也想知道,以前循环模拟点击动作实现的
上
上帝的关爱
Unregistered / Unconfirmed
GUEST, unregistred user!
Function SearchNode(TreeView:TRzTreeView;Txts:String):TTreeNode;
var
i:integer;
s
String;
begin
Result:=nil;
New(s);
For i:=0 To TreeView.Items.Count-1 Do
begin
s:=TreeView.Items.Data;
If s^=Txts Then
begin
Result:=TreeView.Items;
Exit;
end;
end;
end;
procedure TreeExpand(TreeView:TRzTreeView;notetext:string);
var
node:TTreeNode;
begin
node:=SearchNode(TreeView,notetext);
if node<>nil then
node.Expand(true);
end;
var
i:integer;
s
String;begin
Result:=nil;
New(s);
For i:=0 To TreeView.Items.Count-1 Do
begin
s:=TreeView.Items.Data;
If s^=Txts Then
begin
Result:=TreeView.Items;
Exit;
end;
end;
end;
procedure TreeExpand(TreeView:TRzTreeView;notetext:string);
var
node:TTreeNode;
begin
node:=SearchNode(TreeView,notetext);
if node<>nil then
node.Expand(true);
end;
