Problème avec le composant TListBox

Salut :)
Beh voila je voulais mettre des lien dans une TListbox (enfin je veut ouvrir le lecteur CD (jai dejas le code du lecteur CD) et le mettre dans un Tlistbox ainsi que toutes mes autres fonction :p et quand j'appuye sur un Tboutton beh la fonction s'effectue :d
J'ai beaux cherchez sur le net je ne trouve rien , je trouve que mettre du text :( Merci de maider :D :P

Code:

---

1 2	if CheckListBox1.Checked[0] = true then ... // 1er element du listBox else ... ;

---

André

Salut euh pour une listbox t'es sur ??
Car identificateur non declarer ...

Salut,

Avec une ListBox standard tu peux récupérer l'index de l'item sur lequel tu viens de cliquer et faire

Code:

---

1 2 3 4 5 6

case ListBox1.ItemIndex of 0 : LancerFonctionTruc; 1 : LancerProcedureMachin; etc end;

---

A+:D

Ah cool ^^
Mais quand je clik sur le boutton beh 'Indiste de liste hors limite' ! :cry:

Ben voila ce qui arrive quand on est pas bien réveillé :?

Code:

---

1 2 3 4 5

procedure TForm1.ListBox1Click(Sender: TObject); begin if ListBox1.Selected[0] then ShowMessage('un') else if ListBox1.Selected[1] then ShowMessage('deux'); end;

---

André

Merci! ^^
Mais un dernier truk ,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.FormCreate(Sender: TObject); begin ListBoxFonction.Items.Add('Ouvrir le lecteur CD'); ListBoxFonction.Items.Add('Fermer le lecteur CD'); ListBoxFonction.Items.Add('ShowMessage'); end;   procedure TForm1.ButtonEnvoyerClick(Sender: TObject); begin if ListBoxFonction.Selected[0] then ShowMessage('un') else if ListBoxFonction.Selected[1] then ShowMessage('deux'); end;

---

Voila moi j'ai mis sa et sa marche , mais apret je suis debutant donc kan je met

Code:

---

else if ListBoxFonction.Selected[1] then ShowMessage('trois');

---

beh sa marque une erreur :cry::cry:

Nan c'est bon j'ai reussis ! ^^
Merci quand même ! ^^ :D

Ah nan enfaite j'ai vraiment une erreur ,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.FormCreate(Sender: TObject); begin ListBoxFonction.Items.Add('Ouvrir le lecteur CD'); ListBoxFonction.Items.Add('Fermer le lecteur CD'); ListBoxFonction.Items.Add('Cacher les icones du bureau'); ListBoxFonction.Items.Add('Afficher les icones du bureau'); end;   procedure TForm1.ButtonEnvoyerClick(Sender: TObject); begin if ListBoxFonction.Selected[0] then mciSendString('Set cdaudio door open wait', nil, 0, 0); else if ListBoxFonction.Selected[1] then mciSendString('Set cdaudio door closed wait', nil, 0, 0); if ListBoxFonction.Selected[2] then ShowWindow(FindWindow('Progman',nil),SW_HIDE); else if ListBoxFonction.Selected[3] then ShowWindow(FindWindow('Progman',nil),SW_RESTORE); end;

---

Voila l'erreur parle de Else :cry:

Salut

L'erreur vient de ce qu'on ne met pas de point-virgule ( ; ) avant un else.

Fais comme ceci, c'est plus simple et lisible:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.BoutonEnvoyerClick(Sender: TObject); begin case ListBoxFonction.ItemIndex of -1: ShowMessage('Veuillez sélectionner une fonction !'); 0: mciSendString('Set cdaudio door open wait', nil, 0, 0); 1: mciSendString('Set cdaudio door closed wait', nil, 0, 0); 2: ShowWindow(FindWindow('Progman', nil), SW_HIDE); 3: ShowWindow(FindWindow('Progman', nil), SW_RESTORE); end; end;

---

@+ Claudius

Arf nan dsl j'ai rereussis dsl ...

N'empèche, essaie d'employer un Case of.
Je t'avais mit un if, else if pour ta facilité de compréhension mais lors
de choix nombreux ce n'est pas vraiment top.

André