MERCI DE METTRE DES TITRES EXPLICITES !
Résolu
buguetj
Messages postés
76
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
5 avril 2012
-
24 déc. 2005 à 12:20
buguetj Messages postés 76 Date d'inscription lundi 25 octobre 2004 Statut Membre Dernière intervention 5 avril 2012 - 28 déc. 2005 à 16:31
buguetj Messages postés 76 Date d'inscription lundi 25 octobre 2004 Statut Membre Dernière intervention 5 avril 2012 - 28 déc. 2005 à 16:31
A voir également:
- MERCI DE METTRE DES TITRES EXPLICITES !
- Comment afficher les titres des colonnes de mon JTable - Forum Java
- Plusieurs lignes de Titres dans un DBGrid - Forum Delphi / Pascal
- Barre de titre ✓ - Forum C++ & C++ .NET
- Récupérer les titres d'une liste M3U - Forum Flash
- La barre de titre ✓ - Forum Java
4 réponses
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
24 déc. 2005 à 12:45
24 déc. 2005 à 12:45
Salut,
sur ta form tu clique sur ta ComboBox et en suite tu vas dans l'inspecteur d'object dans l'onglet Evenement et double clique à coté de OnClick ce qui va ajouter un corp de procédure dans l'éditeur qui ressemble à ceci :
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
end;
que tu complètes comme ceci :
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex);
end;
mais le résultat ne sera pas 1 pour le premier Item de la liste mais 0 ce qui est normal le deuxième Item donnera 1 ect. ect.
sur ta form tu clique sur ta ComboBox et en suite tu vas dans l'inspecteur d'object dans l'onglet Evenement et double clique à coté de OnClick ce qui va ajouter un corp de procédure dans l'éditeur qui ressemble à ceci :
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
end;
que tu complètes comme ceci :
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex);
end;
mais le résultat ne sera pas 1 pour le premier Item de la liste mais 0 ce qui est normal le deuxième Item donnera 1 ect. ect.
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
24 déc. 2005 à 13:03
24 déc. 2005 à 13:03
il est normal en informatique de faire commencer les listes à 0 mais
cela déroute les utilisateurs lamda qui ont l'habitude de voir la
numérotation à 1 (vieux reste de la numération romaine ou le zéro
n'existait pas ) il suffit de rajouter 1 à l'itemindex pour que
tout le monde s'y retrouve:
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex+1);
end;
@+
jlen
et bonnes fêtes
cela déroute les utilisateurs lamda qui ont l'habitude de voir la
numérotation à 1 (vieux reste de la numération romaine ou le zéro
n'existait pas ) il suffit de rajouter 1 à l'itemindex pour que
tout le monde s'y retrouve:
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex+1);
end;
@+
jlen
et bonnes fêtes
neosystemsteam
Messages postés
23
Date d'inscription
vendredi 7 octobre 2005
Statut
Membre
Dernière intervention
28 juillet 2006
1
24 déc. 2005 à 13:07
24 déc. 2005 à 13:07
l'evennement onclick ne retourne pas des résultat correcte mais tu peut utiliser l'evennement "onselect"
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex);
end;
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
Edit1.Text := IntToStr(ComboBox1.ItemIndex);
end;
buguetj
Messages postés
76
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
5 avril 2012
28 déc. 2005 à 16:31
28 déc. 2005 à 16:31
Merci beaucoup pour toutes vos réponses.
Je vous souhaite de bonne fêtes à tous
A+
Je vous souhaite de bonne fêtes à tous
A+
