Delphi构件:TOutline中如何动态修改Item

Question

我认为这是你使用其它方法加入TOutlineNode的关系.具体的我没做,我只是在下面的代码中动态加入五个NODE,不是用Line属性,而是Items,第二个按钮按下时修改最后一个的显示值.
你可以看一下,当然你需要自己注意一下各节点的索引值,还有AddChild等需要注意的地方.不过,你为什么要使用一个W16的东西呢?用TREEVIEW不是更简单吗?procedure TForm1.Button1Click(Sender: TObject);
begin
OutLine1.Add (0,'This is one');
OutLine1.Add (0,'This is two');
OutLine1.Add (0,'This is three');
OutLine1.Add (0,'This is four');
OutLine1.Add (0,'This is five');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  OutLine1.ItemS[5].Text :='This is modified';
end;end.