这样,怎么在TreeView里取得Edit1.text的节点。
var
aNode:TTreeNode;
begin
aNode:=TTreeNode.Create(TreeView1.Items);
aNode:=TreeView1.items.//----------这儿怎么写,我想最起码应该有个函数,中间可以填String类型的值吧,可我没有找到!
end;
var
aNode:TTreeNode;
begin
aNode:=TTreeNode.Create(TreeView1.Items);
aNode:=TreeView1.items.//----------这儿怎么写,我想最起码应该有个函数,中间可以填String类型的值吧,可我没有找到!
end;
TreeView1.Items.Add(TreeNode1,节点显示内容);//返回值为新增的节点
为节点TreeNode1添加一个子节点
TreeView1.Items.AddChild(TreeNode1,节点显示内容);//返回值为新增的节点
如果你没有其他的查找条件,可能只有用循环来比较Treeview上的每个node的text了。
if Treeview1.Items.Item[i].Text = Edit1.text then
begin
Treeview1.Items.Item[i].Selected := True;
aNode := Treeview1.Selected;
Exit;
end;
33443490
if Treeview1.Items.Item[i].Text = ComboBox1.text then
begin
Treeview1.Items.Item[i].Selected := True;
aNode := Treeview1.Selected;
Exit;
end;
Treeview1.Items.AddChild(aNode,'新增内容');
function GetNodeByText(sText: String;tv: TTreeView): TTreeNode;
var
c: String;
i: integer;
begin
Result := nil;
for i := 1 to tv.Items.Count-1 do
begin
c := tv.Items.Item[i].Text;
if c = sText then
begin
tv.Selected := tv.Items.Item[i];
Result := tv.Items.Item[i];
break;
end;
end;
end;
供参考
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
xx:TTreeNode;
begin
for i:=0 to suiTreeView1.Items.Count -1 do
begin
xx:=suiTreeView1.items.item[i];
if xx.Text='历史资料' then
begin
Edit1.Text:=xx.Text;
xx.DeleteChildren;
exit;
end;
end;
end;