TListView组件使用方法

引用CommCtrl单元

procedure TForm1.Button1Click(Sender: TObject);
begin
   ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始
end;

用LISTVIEW显示表中的信息：

ListView使用中的一些要点。以下以一个两列的ListView为例。

增加一行：
with ListView1 do
   begin
     ListItem:=Items.Add;
     ListItem.Caption:='第一列内容';
     ListItem.SubItems.Add('第二列内容');
   end;

清空ListView1：
ListView1.Items.Clear;

得到当前被选中行的行的行号以及删除当前行：

For i:=0 to ListView1.Items.Count-1 Do
   If ListView1.Items[i].Selected then   //i=ListView1.Selected.index
     begin
       ListView1.Items.Delete(i);   //删除当前选中行
     end;
当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。

读某行某列的操作：

Edit1.Text := listview1.Items[i].Caption;   //读第i行第1列
Edit2.Text := listview1.Items[i].SubItems.strings[0];   //读第i行第2列
Edit3.Text := listview1.Items[i].SubItems.strings[1];   //读第i行第3列
以次类推，可以用循环读出整列。

将焦点上移一行：

For i:=0 to ListView1.Items.Count-1 Do
   If (ListView1.Items[i].Selected) and (i>0) then
     begin
       ListView1.SetFocus;
       ListView1.Items.Item[i-1].Selected := True;
     end;