ListView et suppression d'élément

Bonjour,

version Rio 10.3

Je butte encore sur un truc jusqu'alors inutilisée de ma part.

Soit un TListView rempli via Livebindings bien sûr ;)

Pièce jointe 556861
pour obtenir le bouton Delete en rouge j'ai juste modifié la propriété du TextButton, buttontype, en la passant à Delete

le code est simple

Code:

---

1 2 3 4 5

procedure TForm109.ListView1ButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin FDQuery1.Delete; end;

---

Tout fonctionne sauf si je supprime le dernier élément qui me lève une erreur d'exception

Citation:

---

Envoyé par Erreur

Violation d'accès à l'adresse 0098C445 dans le module 'Projectdelete.exe'. Lecture de l'adresse E9F80436.

---

Je soupçonne la liaison d'en être responsable (une fin de fichier mal géré ?)

1. Comment y échapper ?
2. Avez-vous déjà eu à faire à ce cas ?
3. Est-ce un bogue de version, j'ai essayé avec Tokyo, même erreur quoique avec une adresse mémoire différente? (je n'ai pas encore vérifié si c'était signalé au niveau du portail qualité)

Je n'ai toujours pas trouvé de solution. La piste bogue semble se confirmer.
J'ai encadré ma suppression par

Code:

---

1 2 3 4 5 6 7

procedure TForm109.ListView1ButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl); begin LinkListControlToField1.Active:=False; FDQuery1.Delete; LinkListControlToField1.Active:=True; // erreur ici end;

---

du coup le message d'erreur devient

Citation:

---

---------------------------
Erreur
---------------------------
Argument hors limites.

---

Ce qui tend bien à prouver que le problème est dans la liaison, mais je n'arrive pas à l'ignorer

Finalement c'est résolu avec peine et grâce aux pistes qu'a pu me fournir Nabil74 en live.

Ce qui m'a mené sur la voie : "as-tu essayé avec une grille ?", je n'y avais même pas songé. J'ai alors positionné un BindNavigator et utilisé le bouton de suppression => pas d'erreur
du coup je me suis dit "que se passerait-il avec l'évènement OnItemClick tout simple ?" => pas d'erreur

la solution alors devient l'utilisation de OnItemClicEx

Code:

---

1 2 3 4 5 6 7

procedure TForm109.ListView1ItemClickEx(const Sender: TObject; ItemIndex: Integer; const LocalClickPos: TPointF; const ItemObject: TListItemDrawable); begin if ItemObject is TListItemTextButton then FDQuery1.Delete; end;

---

N'empêche, "Helas poor Button, bug or not bug that is the question"