Discussion :

[avogadro]

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 :

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

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

[MD Software]

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

[Philippe Gormand]

Bonjour.

Code :

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

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+

[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 :

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

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 !

[denokan]

Code :

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

1
2
 
ListBox1.DeleteSelected;

[avogadro]

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 :

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

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/////////////////

[Rayek]

Code :

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

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 puis après un petit coups de sur itemIndex ne fera pas de mal ^^

[avogadro]

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 :

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 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;

[Rayek]

C'est un peu normal quand tu fais appel à ça tab_param[ListBox1.ItemIndex] , tab_param[-1] c'est impossible...

[avogadro]

vui mais comment désactiver laffichage du popup menu si tab_param[-1] ?

[denokan]

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

Code :

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

  Supprimer1.Enabled := ListBox1.ItemIndex >= 0;

[avogadro]

enabled n'éxiste pas pour un popupmenu :/

[denokan]

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

[Philippe Gormand]

Bon, bon, bon !

Essais de travailler avec ça.

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
 
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+

[Arkal]

Pas de Exit de préférence