Delphi有两个button 第一个添加数据到Listview第一和第二列 第二个怎么添加数据到第三列 ListView1.Items[0].SubItems.Add(button2.Caption); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 第一列和第二列是从数据库导入的很多数据不能修改 第三列是使用者添加的数据listview的表就是这样了 1、2列不能修改 第三列从第一行往下添加数据,就是加不进去添加一行会一直往下走的 procedure TForm1.button1Click(Sender: TObject);var item: TListItem;begin item := ListView1.Items.Add; item.Caption := IntToStr(ListView1.Items.Count); item.SubItems.Add(button1.Caption);end;procedure TForm1button2Click(Sender: TObject);begin ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(button2.Caption);end; 你得明白 listview的结构 DirectX 截图失败黑屏问题 老问题老问题 初学Delphi想尽快入门! 求复杂SQL语句一条! 收集干活时听的歌,欢迎踊跃提供! 控制外部程序菜单 在使用ADOQuery中的SQL语句中出现的问题 想了两天没解决 如何屏蔽双击放大窗体???? 图片存储的问题,帮忙解决,先谢了! 如何使BDE Administrator在一台没安装delphi的机器上运行? FireMonkey中怎样创建一个有border但没有标题栏的窗口? 请问,Lcstring Lcsystem 这些都是什么组件??
listview的表就是这样了 1、2列不能修改 第三列从第一行往下添加数据,就是加不进去
添加一行会一直往下走的
procedure TForm1.button1Click(Sender: TObject);
var
item: TListItem;
begin
item := ListView1.Items.Add;
item.Caption := IntToStr(ListView1.Items.Count);
item.SubItems.Add(button1.Caption);
end;procedure TForm1button2Click(Sender: TObject);
begin
ListView1.Items[ListView1.Items.Count - 1].SubItems.Add(button2.Caption);
end;