Доброе время суток, подскажите что я делаю не так пытаюсь удалить строку в ListView по нажатию в нём кнопки выдает ошибку
Код:
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 хотя я его об этом не просил
Код:
procedure TfrmMain.ListView2Click(Sender: TObject);
begin
ShowMessage('Нажатие по элементу');
end;