TreeView的Item在插入的时候如何始终显示在首行?

Question

TreeView1.TopItem := TreeView.Items[0];

Answer 1

错了, 加范围检查。if TreeView1.Items.Count > 0 then
   TreeView1.TopItem := TreeView1.Items[0];

Answer 2

var NewListView: TListItem;
begin
  NewListView := ListView1.Items.Insert(0);
  NewListView.Caption := 'NewListView';
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 3

设置TopItem属性，如kyee(浪子阿鹏) 所说

Answer 4

设置TopItem属性，如kyee(浪子阿鹏) 所说

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
  Treeview1.Items.Insert(Treeview1.topitem,edit1.text);
end;