关于 TListView 中 Checked 项个数统计的问题？在线等待

Question

我是在Listviewclick中处理
procedure .........
var
i:integer;
begin
  icount:=0;
  for i:=0 to LsData.Items.Count- 1 do
    if Listview.Items.Item[i].Checked then
      icount:=icount+1;
end;但如果在某一复选框上连续快速点击左键，统计出来的数字就有可能多或少一个。
如何处理？？

Answer 1

把listview的rowselect 改成true就可以了。

Answer 2

这样写吧。
  icount: Integer;procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if item.Checked then
  begin
    dec(icount)
  end else
  begin
    inc(icount);
  end;
end;