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

Jimy 2000-01-28 05:31:00
请大家帮帮忙
不是添加,是修改,
我试过用outline1.lines[i]:='abc';
但是在i为最后一个时就会出错
用先Insert再delete也没用,之前我也用了BeginUpdate
把它visible:=False

...全文
303 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
Venne 2000-01-28
  • 打赏
  • 举报
回复
我认为这是你使用其它方法加入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.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧