如何让树形控件的某个子节点是不可编辑状态？

Question

procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
  AllowEdit := Node.Level = 0; //第一层可以编辑
end;

Answer 1

对该控件的OnEditing时间编码：
    如果该事件的Node参数为你不能编辑的结点则将AllowEdit参数置为False否则不需要做任何事情；比如
procedure TForm1.TreeView1Editing(Sender: TObject; Node: TTreeNode;
  var AllowEdit: Boolean);
begin
   if Node=TreeView1.Items[1] then
      AllowEdit:=False;
end; 
这样就不能编辑第一个结点了