Как определить нажатие Item в ListView?

[FleXik]

Накидал такой код, кинул на событие OnSelectIcon у ListView

  if (Item.Selected) and (Form1.ListView1.Tag=0) then
    Form1.ListView1.Tag:=1
  else
  if (Item.Selected) and (Form1.ListView1.Tag=1) then
  begin
    Form1.ListView1.ClearSelection;
    Form1.ListView1.Tag:=0;
  end;

Если кто-то может предложить другой вариант - предложите пожалуйста. Да, немного криво пашет т.к при выборе другого Item надо нажимать два раза чтобы он выбрался, потом подправлю...


Есть еще такой способ, но он тоже не доделан, второй раз Item не выделяется...

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  (Sender as TListView).OnSelectItem := Self.ListView1SelectItem2;
end;

procedure TForm1.ListView1SelectItem2(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  Form1.ListView1.ClearSelection;
end;

[Stilet]

Не пойму зачем так усложнять программу?
И потом кажись в ЛистВью была возможность включить для каждой строки возможность проставлять галочки, может стоит в эту сторону смотреть?

[FleXik]

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

Не пойму зачем так усложнять программу?
И потом кажись в ЛистВью была возможность включить для каждой строки возможность проставлять галочки, может стоит в эту сторону смотреть?

Да, там есть возможность галочек я решил сделать 2 варианта сохранения строк

1 вариант:
Сохранение всех строк если ни одна строка не выделена

2 вариант:
Сохранение только выделенных строк

Это очень удобно когда юзеру надо выгрузить несколько строк а не весь список особенно когда список сильно большой.... Или у кого-то есть альтернативные варианты?

[eval]

Накидал такой код

это какой-то бред, дорогие товарищи.

[FleXik]

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

это какой-то бред, дорогие товарищи.

Проходи мимо тогда или давай свой вариант, лишь бы сообщений набить.

[Stilet]

Проходи мимо тогда или давай свой вариант, лишь бы сообщений набить.

Он прав. Это бред. Просто ты еще этого не понял )

[FleXik]

Он прав. Это бред. Просто ты еще этого не понял )

единственное что пришло в голову т.к задание такое:

Первый клик на Item -> Item выделяется
Второй клик на Item -> выделение убирается

[eval]

оно и само так умеет

ну если уж не вмоготу то можно как-то так
если текущий_итем.выделено то
текущий_итем.выделено := лож;

токмо надо и свойства нужные настроить

а ваще идитека вы поучитесь, книжки там всякие почитайте, ну хотя бы книнжки-разукрашки

[Stilet]

Первый клик на Item -> Item выделяется
Второй клик на Item -> выделение убирается

Ты бы лучше обьяснил зачем такие заморочки.

[Человек_Борща]

Ну так и играйся со свойством Selected, всего в одну строку:

LI.Selected := not LI.selected;