treeview的输入焦点的控制

Question

例如：当treeview显示了数据库的内容后，我想单击窗体上的 ‘新增’按钮后则treeview中不受鼠标控制(即: 鼠标不可以选中各个节点)。但用treeview.enable:=false则变灰色，目的是使treeview不接受焦点且treeview又不变灰色。
如何实现？谢谢

Answer 1

再次单击treeview不又获得焦点了吗？不行的

Answer 2

把treeview放到一个panel上，将panel的enabled改为false

Answer 3

这两句话如何...   TreeView1.Enabled:=false;
   TreeView1.Color:=clbtnface;

Answer 4

定义CanClick: Boolean;单击窗体上的 ‘新增’按钮中设置CanClick=false(但当然你应该在合适的地方再设置CanClick=true)，然后：procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  AllowChange := CanClick;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————