Bonjour,

c'est la première fois que je veux utiliser cette fonctionnalité ou, plus exactement le bouton d'un élément de la liste pour supprimer ce dernier.
Il y a des évènements associés comme OnDeleteItem ou OnDeletingItem en plus du OnButtonClick que je veux justement utiliser.

Le hic et ma question : Comment on supprime l'élément pour que les évènements OnDeletexxxxx s'activent ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TFormFRDesign.ListView1ButtonClick(const Sender: TObject;
  const AItem: TListItem; const AObject: TListItemSimpleControl);
begin
showmessage('button Delete');
// à priori c'est ici que j'ai besoin de code 
end;
 
procedure TFormFRDesign.ListView1DeleteItem(Sender: TObject; AIndex: Integer);
begin
showmessage('Delete');
end;
 
procedure TFormFRDesign.ListView1DeletingItem(Sender: TObject; AIndex: Integer;
  var ACanDelete: Boolean);
begin
 ACanDelete:=Not SameText(Datas.FDGabaritFr3.FieldByName('CLE').asString,'DEFAUT');
 if not ACanDelete then Showmessage('pas de suppression');
end;