[hesperusvz]

Доброе время суток, подскажите что я делаю не так пытаюсь удалить строку в ListView по нажатию в нём кнопки выдает ошибку

Код:

1 2 3 4 5 6 7 8 9 10 11 12

procedure TfrmMain.ListView2ButtonClick(const Sender: TObject;   const AItem: TListItem; const AObject: TListItemSimpleControl);   var v:integer; begin   v:= ListView2.ItemIndex ;  ListView2.Items.Delete( v );  exit; ShowMessage('Нажатие по элементу');   end;

Админ: Пользуемся тегами при оформлении кода!

Да он ещё обращяется на onClik хотя я его об этом не просил

Код:

1 2 3 4

procedure TfrmMain.ListView2Click(Sender: TObject); begin ShowMessage('Нажатие по элементу'); end;