Delphi ListView控件 问题，请高手帮忙！谢谢！

Question

Delphi    ListView控件 form 上有个ListView控件，比如说总共有10条记录。 当我进入这个form 时，要把所有10条记录都列出来，并且默认选中第3条。各位高手，怎么实现？谢谢了！

Answer 1

给一个UP，在OnShow事件中写代码。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  with ListView1 do
  begin
    ViewStyle:=vsReport;     {设置报表样式}
    ShowColumnHeaders:=True; {设置显示标题}
    RowSelect:=True;         {设置整行可选}
    Checkboxes:=True;        {设置显示复选框}    for i:=0 to 5 do          {循环添加6个标题}
    with  Columns.Add do
      Caption:='Hello'+inttostr(i);    for i:=0 to 9 do         {循环添加10笔数据}
    with  Items.Add do
    begin
      Caption:='Hello'+inttostr(i);
      for j:=0 to 4 do       {对应5个标题}
        SubItems.Add(inttostr(i)+','+inttostr(j));
    end;    SetFocus;                {设置ListView1获得焦点}
    Items[2].Checked:=True;  {设置第3笔复选框选中}
    Items[2].Selected:=True; {设置第3笔整行选中}
  end;
end;