两个ListView问题？**

huanghui

1、ListView里边的checkbox选中事件是什么？或者checkbox选中时，对应的ListView项选中？
    2、ListView有没有显示值（Caption）,与关键字这样的说法？

lixy

TListItem.Checked

Determines whether a check mark appears next to the list item.

property Checked: Boolean;

Description

Use Checked to indicate whether the list item represents a selected option by displaying a check mark next to the item in the list view. When Checked is True, a check mark appears next to the item. When Checked is False, no check mark appears.

Note:        Set the CheckBoxes property of the ListView to True before using the Checked property.

lixy

procedure TForm1.FormCreate(Sender: TObject);

const
  Names: array[0..5, 0..1] ofstring = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rocky')
    );

var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;
    Align := alClient;

    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := 'Last';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'First';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;

gaihl

问题1，Change事件
procedure TMainForm.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
begin
  if Item.Checked then Dialogs.ShowMessage('OK');
end;

问题2
没有关键字与显示值的说法。但有SubItems属性可以存放多个子项值。
s := ListView1.Items[0].Caption;   
s := ListView1.Items[0].SubItems.Strings[0];