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;