ListView表格状

procedure TForm1.FormCreate(Sender: TObject);

var
i: Integer;
column: TListColumn;
begin

for i := 0 to 5 do
begin
    column := ListView1.Columns.Add;
    column.Caption := Format('Col %d', [i]);
end;

ListView1.ViewStyle := vsReport;    //表格状
ListView1.GridLines := True;
ListView1.ShowColumnHeaders := True;

end;

 

{---------------------------------在第几行第几列添加内容----------------------------------------}

 

首先将控件的ViewStyle属性设置成vsReport，再设置其Columns属性(添加4个列名)

添加一行：
var
  tmpItem: TListItem;
begin
  tmpItem := ListView1.Items.Add;
  tmpItem.Caption := '1';   //第1行第1列
  tmpItem.SubItems.Add('2');//第1行第2列
  tmpItem.SubItems.Add('3');//第1行第3列
  tmpITem.SubItems.Add('4');//第1行第4列
end;

删除一行：
ListView1.Items[0].Delete;  //删除第1行


修改一行：
var
  tmpItem: TListItem;
begin
  tmpItem := ListView1.Items[0];//得到第一行对象
  tmpItem.Caption := '11';//修改第1行第1列
  tmpItem.SubItems[0] := '22';//修改第1行第2列
  tmpItem.SubItems[1] := '33';//修改第1行第3列

end;