读书人

Delphi ListView控件 有关问题请

发布时间: 2012-03-01 10:25:47 作者: rapoo

Delphi ListView控件 问题,请高手帮忙!谢谢!
Delphi ListView控件

form 上有个ListView控件,比如说总共有10条记录。

当我进入这个form 时,要把所有10条记录都列出来,并且默认选中第3条。

各位高手,怎么实现?谢谢了!

[解决办法]

Delphi(Pascal) code
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; 

读书人网 >.NET

热点推荐