&AtClient
Procedure ListBeforeDeleteRow(Item, Cancel)
   Answer = DoQueryBox("....?", Mode, 0);
   If Answer = DialogReturnCode.No Then
      Cancel= True;
   EndIf;      
EndProcedure

&AtClient
Procedure ListBeforeDeleteRow(Item, Cancel)
   Cancel = True;
   ShowQueryBox(New NotifyDescription("ListBeforeDeleteRowEnd", ThisObject), NStr("en = 'Delete row?'"), QuestionDialogMode.YesNo);
EndProcedure

&AtClient
Procedure ListBeforeDeleteRowEnd(QuestionResult, AdditionalParameters) Export
   If QuestionResult = DialogReturnCode.Yes Then
      Row = Object.List.FindByID(Items.List.CurrentRow);
      Object.List.Delete(Row)
   EndIf;
EndProcedure