supprimer item d'une listbox a l'aide d'un popup menu

Version imprimable

10/04/2006, 10h11
avogadro

supprimer item d'une listbox a l'aide d'un popup menu
bonjour,

en fait j'ai un popup menu avec "paramètres" et "supprimer", quand je clic sur supprimer j'aimerais supprimer l'élément que j'ai selectionné dans la listbox, c'est a dire avec quelque chose du genre :
Code:

1 2 3 4 procedure TForm1.Supprimer1Click(Sender: TObject); begin ///code de la supréssion de l'item selectionné de la listbox end;
mais je ne trouve pas :s
10/04/2006, 10h28
MD Software

Si tu veux récupérer l'item sélectionné dans ta TListBox, utilise la propriété ItemIndex

ListBox

Bonjour.

Code:

1
2
3
4
5
6
7
8
9
 
Procedure Sumprime1Click(Sender : Tobject);
Var
   I  : Integer;
 
Begin
     I := ListBox1.IntemIndex;
     ListBox1.Items.Delete(I);
End;

La liste Box est autmatiquement remise à jour.

A+

10/04/2006, 10h36
avogadro
en effet quelque chose du genre me permet de voir que ton code marche, permettant de retrouver le numero de l'item dans la liste, mais pour le supprimer?
Code:

1 2 3 4 procedure TForm1.Supprimer1Click(Sender: TObject); begin showmessage(inttostr(ListBox1.ItemIndex)); end;
Edit : tu a répondu avant moi lol dsl, merci cest niquel !
10/04/2006, 10h42
denokan
Code:

1 2 ListBox1.DeleteSelected;

j'utilise ça mais quand je fais un clic droit et que aucun élément n'est sélectionné l'application me pond une erreur, j'ai tenté un try except mais ça na rien donnée :s

Code:

1
2
3
4
5
6
7
8
9
10
/////////////POPUP MENU DE LA LISTBOX/////////////////
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
     //erreur si clic droit et rien ds la listbox !!
     if(tab_param[ListBox1.ItemIndex][0] = '') then
      Paramtres1.Enabled := false
     else
      Paramtres1.Enabled := true;
end;
/////////////FIN POPUP MENU DE LA LISTBOX/////////////////

13/04/2006, 08h30
Rayek
Code:

1 2 3 4 5 If listbox.ItemIndex <> -1 then Showmessage('Y a eu un click') else Showmessage('Y a rien qui a ete clické !!!');
Voir le petit code explicite ci dessus :wink: puis après un petit coups de :f1: sur itemIndex ne fera pas de mal ^^

c'est pas mal mais apres le message d'erreur le popup menu s'affiche toujours :( meme si je fais un autopopup := false il s'affiche...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
     //erreur si clic droit et rien ds la listbox !!
     If ListBox1.ItemIndex <> -1 then
        begin
          Showmessage('Y a eu un click');
          PopupMenu1.AutoPopup := true;
        end
     else
         begin
              PopupMenu1.AutoPopup := false;
              Showmessage('Y a rien qui a ete clické !!!');
         end;
 
     {if(tab_param[ListBox1.ItemIndex][0] = '') then
      Paramtres1.Enabled := false
     else
      Paramtres1.Enabled := true;}
end;

13/04/2006, 09h59
Rayek

C'est un peu normal quand tu fais appel à ça tab_param[ListBox1.ItemIndex] , tab_param[-1] c'est impossible...
24/04/2006, 00h32
avogadro

vui mais comment désactiver laffichage du popup menu si tab_param[-1] ?
24/04/2006, 00h52
denokan

regarde dans l'évènement OnPopup de ton menu...

Code:

Supprimer1.Enabled := ListBox1.ItemIndex >= 0;
24/04/2006, 13h30
avogadro

enabled n'éxiste pas pour un popupmenu :/
24/04/2006, 13h52
denokan

Enabled est une propriété de TMenuItem... tu peux ainsi désactiver ou non chaque élément de ton menu un par un

PopupMenu

Bon, bon, bon !

Essais de travailler avec ça.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
ListBox1.PopupMenu:= Nil;// Désactivation du popupMenu.
...
 
ListBox1.PopupMenu := PopupMenu1.// Association du PopupMenu à la
                                                 // ListBox.
 
 
//Et puis aussi
 
If ListBox1.Items.Count = 0 Then Exit;
 
// Ou bien 
 
If ListBox1.Items.Count < 1 Then 
 begin
     // Traiter l'erreur 
end;

A+

24/04/2006, 22h08
Arkal

Pas de Exit de préférence ;)