treeview锁定

Question

哪图,当点击增加电子下面微电子的同级时,成功增加然后刷新treeview,但treeview自动跳到最后一条也就是化工列,所以再增加的话就只能增加化工的同级,我还是希望刷新后treeview仍选择在微电子,这样我可以继续增加,没必要退出后再加,treeview应该有这个功能,当增加同级时能锁定原在treeview的选择行,只有退出后重新选择才可以对其它进行操作.怎么操作呀
代码如下 
procedure Tsplb.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
path:string;
parent:ttreenode;
p:pstring;
begin
p:=node.data;
path:=node.text;
parent:=node.parent;
while parent <> nil do   begin
path:= parent.text +'\'+ path;
          parent:= parent.parent;
      end;
with adoquery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select * from flbm where id=:a');
    parameters.ParamByName('a').Value :=p^;
    open;
    edit1.text:=fieldbyname('parent').Text;
    edit2.Text:=fieldbyname('id').Text;
    edit3.Text:=fieldbyname('flmc').Text;
    edit5.Text:=fieldbyname('flbm').Text;
  edit4.Text:= path;
  end;
end;

Answer 1

你刷新重新选择电子哪个节点就可以了，代码
for i := 0 to TreeView1.Items.Count-1 do
begin
  if TreeView1.Items[i].Text := '电子' then
  begin
    TreeView1.Items[i].Selected := True;
    Break;
  end;
end;