IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants FMX Delphi Discussion :

TListView, supprimer un item via le bouton


Sujet :

Composants FMX Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 658
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 658
    Billets dans le blog
    65
    Par défaut 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 : 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;

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 096
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 096
    Par défaut
    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é
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique retraité
    Inscrit en
    Janvier 2007
    Messages
    15 658
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique retraité
    Secteur : Industrie

    Informations forums :
    Inscription : Janvier 2007
    Messages : 15 658
    Billets dans le blog
    65
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 11/04/2006, 16h48
  2. Réponses: 12
    Dernier message: 28/02/2006, 09h36
  3. [WinForms]execution d'un prog via un bouton
    Par BernardT dans le forum Général Dotnet
    Réponses: 2
    Dernier message: 20/02/2006, 15h34
  4. Réponses: 17
    Dernier message: 02/02/2006, 22h31
  5. Réponses: 3
    Dernier message: 10/02/2005, 17h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo