TListView, supprimer un item via le bouton

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:

---

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;

---

A priori FDeleteButton.OnClick est lié au gestionnaire DeleteButtonClicked qui appel TListViewBase.DeleteItem qui appele FOnDeletingItem et FOnDeleteItem

l'autre chemin c'est ProceedDeleteItem qui appele FOnDeleteItem mais je n'ai pas trouvé comment c'était appelé

Oui, j'ai réussi à le faire en faisant un Hack de TListView, mais cela ne m'a pas vraiment satisfait je ne comprends pas que l'on puisse avoir des événements OnDeleteItem ou OnDeletingItem qui sont impossibles à lever sans faire un piratage

Code:

---

1 2 3

// code ajouté THackListView(ListView1).DeleteItem(AItem.Index);

---

du coup j'ai changé mon fusil d'épaule et cache plutôt le bouton pour compenser le OnDeletingItem

Code:

---

1 2 3 4 5 6

procedure TForm1.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); begin if Assigned(AItem.Objects.TextButton) then AItem.Objects.TextButton.Visible := not SameText(AItem.Text, 'DEFAUT'); end;

---

et supprime directement

Code:

---

1 2 3 4 5 6

procedure TForm1.ListView1ButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin if not SameText(AItem.text, 'DEFAUT') then Datas.FDGabaritFr3.Delete; end;

---

plutôt que de passer par OnDeleteItem