Delphi有两个button 第一个添加数据到Listview第一和第二列 第二个怎么添加数据到第三列

2025-05-09 14:07:43
推荐回答(1个)
回答1:

第二个按钮里不能这样写,应改成这样

ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Listview1.Items.Add do begin
    Caption:='1';
    SubItems.Add(button1.Caption);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Items[Listview1.Items.count-1].SubItems.add(button2.Caption);
end;