判断选中delphi之中treeview控件节点的语句

发布网友发布时间：2022-05-03 11:32

共2个回答

热心网友时间：2022-06-19 12:54

//treeview的单击事件
procere TForm1.TreeView1Click(Sender: TObject);
begin
//如果选中节点的等级（level）为0（根节点等级为0，根节点的子节点等级为1，依次类推）并且其序号(index)为0（同等级下的的节点按从上到下数第一个为0，第二个为1，以此类推）
if(treeview1.Selected.Level = 0)and(treeview1.Selected.Index = 0) then
begin
//这里写点中了第一个根节点后要做的事
form1.Color := clred;
end
else
if (treeview1.Selected.Level = 1)and(treeview1.Selected.Index=1) then
begin
//这里写点中了第三个根节点的第2个子节点后要做的事
form1.Color := clblue;
end;
end;
//如果你想点节点前的“+”号也有同样的效果，那么就应该在Expanding事件里写判断处理程序。
//【补充】【如果你不想要点+号的时候触发事件，这下面的可以删去】
procere TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
if(node.Level = 0)and(node.Index = 0) then
begin
form1.Color := clred;
end
else
if (node.Level = 1)and(node.Index=1) then
begin
form1.Color := clblue;
end;
end;
如果还有不明白的地方，补充或者给我发消息（注明问题）

热心网友时间：2022-06-19 12:55

var
node: TTreeNode;
begin
node := TreeView1.Items[0]; //第1个根结点
showmessage(node.text);

node := node.getNextSibling;
node := node.getNextSibling;//找到第3个根结点
node := node.Items[1]; //找到第3个根结点的第2个子节点
end;