Discussion :

[SergioMaster]

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;

[ShaiLeTroll]

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é

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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