ListView组件（属性设置）

procedure TMyForm.FormCreate(Sender: TObject);
var
  Group: TListGroup;
  Item: TListItem;
  s1, s2: string;
begin
//以下属性可以在属性窗口中手动设置，也可以动态设置
  ListView1.ViewStyle := vsReport; 
  ListView1.GroupView := True;
  ListView1.Columns.Add.Caption := 'My column';
  Group := ListView1.Groups.Add;
  Group.Header := 'My header';
  Group.GroupID := 0;
  Item := ListView1.Items.Add;
  Item.GroupID := 0;
  Item.Caption := 'My item';

。。，。。。
end;