ListView的问题？

Question

请问各位 有没有办法实现在ListView中Items前面打勾的同时选中这个Items 先谢谢各位了

Answer 1

是不是要取得选中的item？
var
  i: Integer;
begin
  for i := 0 to ListView1.items.Count-1 do
   if ListView1.Items[i].Checked then
      dosomething
end;

Answer 2

procedure TF_WareInsertPic.ListView1Click(Sender: TObject);
var
  i:integer;
begin
      if TListView(Sender).ItemIndex>=0 then  // 把ListView1改为TListView(Sender)
        begin
          i:=TListView(Sender).ItemFocused.Index;
          ListView1.Items[i].SubItems[1]:='active';
        end
end;