1.delphi 中listview的源码用法？

delphi 中listview的用法？

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

源码sq源码管理

       添加一行：

源码sq源码管理

       var

源码sq源码管理

        tmpItem: TListItem;

源码sq源码管理

       begin

源码sq源码管理

        tmpItem := ListView1.Items.Add;

源码sq源码管理

        tmpItem.Caption := '1'; //第1行第1列

源码sq源码管理

        tmpItem.SubItems.Add('2');//第1行第2列

源码sq源码管理

        tmpItem.SubItems.Add('3');//第1行第3列

源码sq源码管理

        tmpITem.SubItems.Add('4');//第1行第4列

源码sq源码管理

       end;

源码sq源码管理

       删除一行：

源码sq源码管理

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

源码sq源码管理

       修改一行：

源码sq源码管理

       var

源码sq源码管理

        tmpItem: TListItem;

源码sq源码管理

       begin

源码sq源码管理

        tmpItem := ListView1.Items[0];//得到第一行对象

源码sq源码管理

        tmpItem.Caption := '';//修改第1行第1列

源码sq源码管理

        tmpItem.SubItems[0] := '';//修改第1行第2列

源码sq源码管理

        tmpItem.SubItems[1] := '';//修改第1行第3列

源码sq源码管理

       end;

源码sq源码管理