首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

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

2012-03-01 
DelphiListView控件 问题,请高手帮忙!谢谢!DelphiListView控件form 上有个ListView控件,比如说总共有10条

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; 

热点排行