Discussion :

[Chyokyka]

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

[andreditdd]

Code :

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

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

André

[Chyokyka]

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

[Chyokyka]

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

[Gilbert Geyer]

Salut,

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

Code :

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

1
2
3
4
5
6
 
       case ListBox1.ItemIndex of
                0 : LancerFonctionTruc; 
                1 : LancerProcedureMachin;
                etc 
       end;

A+

[andreditdd]

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

Code :

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

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é

[Chyokyka]

Merci! ^^
Mais un dernier truk ,

Code :

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

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 :

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

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

beh sa marque une erreur