comment utilisé un combobox

Question

je suis nouveau en programmation et j'ai besoin d'aide .mon probleme est que je doit utilisé un combobox ,de dans je mets des choix pour mon programme ,et quand je clique sur un choix il fait une procedure et c'est la ou je me suis bloqué
merci d'avance

cs_Jean_Jean · Answer

bonjour,
 C'est comme pour les ListBox, tu récupère l'index avec la propriété itemindex.
procedure TForm1.ComboBox1Change(Sender: TObject);
var i : Integer;
begin
i := ComboBox1.ItemIndex;
Label1.Caption := 'Tu as clické sur : ' + ComboBox1.Items.Strings[i] + ' à la position : ' + IntToStr(i + 1) ;
end;
Conseils : 
1. tous les composants de base ont des exemlples fournis dans le répertoire DocDemo.
2. tape Fi sur ton composant pour accéder à l'aide
3. tape le nom du composant dans lasection recherche, tu trouveras des exemples ...
bonne continuation!
Jean_Jean

miiiiidou19 · Answer

merci bien pour ton aide et tes conseils mais j'ai rien compris !!!! parceque c'est compliqué pour moi 
merci une deusième fois

cs_Jean_Jean · Answer

Alors, il faut que tu commences par un tutoriel, des exemples simples donnés par la doc demo de borland etc...
Tape cours delphi gratuit, tu en as des tas avec des exercices et des sources...
Jean_Jean

f0xi · Answer

comboBox -> items -> choix1, choix2, choix3

comboBox -> evenements -> assigner OnChange

dans le code :

TForm1 -> zone Public -> ajouter 3 procèdures :


type
  TForm1 = class(TForm)
    {ajout automatique} procedure ComboBox1Change(Sender: TObject);
  public
    {ajout manuel}
    procedure Choix1;
    procedure Choix2;
    procedure Choix3;
  end;


et dans le gestionnaire d'evenements ComboBox1Change :

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  case (Sender as TComboBox).ItemIndex of
    0 : Choix1;
    1 : Choix2;
    2 : Choix3;
    else
      MessageDlg('Vous devez faire un choix ...', mtWarning, [mbOk], 0);
  end;
end;




________________________________________________________
besoin de câbles audio, vidèo, informatique pas cher ?

cs_Jean_Jean · Answer

Salut Foxi,
Tu crois que miiiiidou19 aura compris?
En tout cas, il a de quoi démarrer!
Mais tu as raison, autant donné la bonne méthode tout de suite!
Jean_Jean

miiiiidou19 · Answer

merci bien pour f0xi et Jean_Jean

cleecky · Answer

!!!!!! UN GRAND MERCI de ma part aussi !!!!!
Je suis la reine des erreur bidon...
Ça fait 2 jours que je coincé ! ca y est ca marche 
THANKS


i'm a newbieeees

Comment utilisé un combobox

7 réponses

Votre réponse

Discussions similaires