Delphi控件ListView的属性及使用方法详解

ListView是Delphi中常用的控件之一，通常用于以列表形式展示数据。下面详细讲解ListView的属性及使用方法。

属性

Items

ListView的主要属性是Items，其类型为TListItems，表示ListView中的行数据。通过其Add方法可以添加行，例如：

ListView1.Items.Add.Caption := '第一列';
ListView1.Items[0].SubItems.Add('第二列');

上述代码中，通过Add方法添加了一行，并设置了第一列的值为"第一列"，第二列的值为"第二列"。

另外，通过下述代码可以遍历所有的行：

for i := 0 to ListView1.Items.Count - 1 do
begin
    // 处理每一行
    ShowMessage(ListView1.Items[i].Caption);
end;

上述代码中，通过Items.Count获取所有的行数，然后通过循环遍历每一行，其中Caption表示第一列的值，SubItems表示其他列的值。

Columns

ListView中可以有多列数据，通过Columns属性可以访问所有的列，其类型为TListColumns，可以添加、删除、修改列数据。

例如，通过以下代码可以添加一列数据：

ListView1.Columns.Add.Caption := '新列';

另外，通过下述代码可以遍历所有的列：

for i := 0 to ListView1.Columns.Count - 1 do
begin
    // 处理每一列
    ShowMessage(ListView1.Columns[i].Caption);
end;

ViewStyle

ViewStyle属性用于设置ListView的显示样式，其类型为TViewStyle，有以下几种选择：

• vsReport：报表形式，以表格形式展示数据；
• vsIcon：图标形式，以图标形式展示数据；
• vsSmallIcon：小图标形式，以小图标形式展示数据；
• vsList：列表形式，以列表形式展示数据；
• vsThumbnail：缩略图形式，以缩略图形式展示数据。

例如，通过以下代码可以设置ListView的显示样式为列表：

ListView1.ViewStyle := vsList;

SortType

SortType属性用于设置ListView的排序方式，其类型为TSortType，有以下两种选择：

• stNone：不排序；
• stBoth：升序和降序排序。

例如，通过以下代码可以设置ListView以升序排序：

ListView1.SortType := stAscending;

ReadOnly

ReadOnly属性用于设置ListView是否只读，其类型为Boolean，有以下两种选择：

• True：只读；
• False：可编辑。

例如，通过以下代码可以设置ListView只读：

ListView1.ReadOnly := True;

示例说明

以下示例演示如何通过ListView展示学生信息。

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Add.Caption := '姓名';
  ListView1.Columns.Add.Caption := '性别';
  ListView1.Columns.Add.Caption := '年龄';

  for i := 1 to 5 do
  begin
    with ListView1.Items.Add do
    begin
      Caption := '学生' + IntToStr(i);
      SubItems.Add('男');
      SubItems.Add(IntToStr(20 + i));
    end;
  end;
end;

上述代码中，通过设置ListView的显示样式为报表形式，并添加了三列数据：姓名、性别、年龄。然后通过循环添加了5行数据，其中Caption设置为"学生"+序号字符串，SubItems[0]设置为"男"，SubItems[1]设置为20+i。

以下示例演示如何通过双击ListView中的行打开一个文件。

procedure TForm1.ListView1DblClick(Sender: TObject);
var
  FileName: string;
begin
  if ListView1.Selected <> nil then
  begin
    FileName := 'C:\' + ListView1.Selected.Caption + '.txt';
    if FileExists(FileName) then
      ShellExecute(Handle, 'open', PChar(FileName), nil, nil, SW_SHOWNORMAL)
    else
      ShowMessage('文件不存在！');
  end;
end;

上述代码中，通过判断ListView1.Selected是否为空，获取选中的行数据。然后根据该行数据动态生成一个文件名，并通过FileExists函数判断文件是否存在。如果文件存在，调用ShellExecute函数打开该文件，否则弹出提示信息。