ListView выделение нескольких элементов без Ctrl

[fezilk25]

Собсно нужно сделать мультивыделение простыми кликами, без Ctrl..
Чтобы строки в ListView были наподобие чекбоксов - нажал - выделил, нажал ещё раз - снял выделение.

Спасибо.

[spamer]

Свойства ListView:

Checkboxes := True;
ViewStyle := vsList;

[fezilk25]

необходим ViewStyle := vsReport;
чекбоксы появляются, но строка выделенной не остается

[spamer]

Сообщение от fezilk25

необходим ViewStyle := vsReport;

Delphi 2009, работает отлично с vsList, а вот как раз с vsReport и не работает...

Сообщение от fezilk25

чекбоксы появляются, но строка выделенной не остается

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
//var
//  Item: TListItem;
begin
 Item := ListView1.GetItemAt(X, Y);
 if Item <>nil then
  Item.Selected := True;
end;

EDIT:

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
  if not Item.Checked then
      Item.Selected := False;  
end;

// Делаем глобальной
var
  Item: TListItem;

[fezilk25]

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Item := ListView1.GetItemAt(X, Y);
 if Item <>nil then
 begin
  Item.Selected := True;
  Item.Checked := true;
 end;
end;

Сделал так.
Но как сохранять выделение элементов при клике на другую строку?

[fezilk25]

И ещё вопрос вдогонку - как получить список отмеченных элементов (элементов, у которых значение чекбокса Checked) ?

[ZuBy]

begin
  for i := 0 to listview1.items.count-1 do
  begin
    if Listview1.Items[i].Checked then
   //  тут делаем какое нить действие
  end;
end;