begin process at 2012 02 10 09:21:25
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

J'AI BESOIN D'AIDE !!!! :O

 > 

ComboBox.Text


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

ComboBox.Text

mercredi 18 décembre 2002 à 18:05:21 | ComboBox.Text

magicvinni

Bonjour,
J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :

ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
Merci
MagicVinni
mercredi 18 décembre 2002 à 18:30:05 | Re : ComboBox.Text

Delphiprog

Administrateur CodeS-SourceS
Dans l'évènement OnChange du composant TComboBox :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
with ComboBox1 do
if Items.IndexOf('Autre') = ItemIndex then
begin
Items[ItemIndex] := 'Vous avez fait un autre choix';
ItemIndex := Items.IndexOf('Vous avez fait un autre choix');
end;
end;

May Delphi be with you


-------------------------------
Réponse au message :
-------------------------------

> Bonjour,
> J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :
>
> ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
> Merci
> MagicVinni
mercredi 18 décembre 2002 à 18:43:36 | et si on veut garder l'item "autre"?

magicvinni

Merci,
Mais je voudrais pouvoir garder l'item "autre" et seulement changer le texte de la combobox, c'est possible tu penses?
Merci
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> Dans l'évènement OnChange du composant TComboBox :
> procedure TForm1.ComboBox1Change(Sender: TObject);
> begin
> with ComboBox1 do
> if Items.IndexOf('Autre') = ItemIndex then
> begin
> Items[ItemIndex] := 'Vous avez fait un autre choix';
> ItemIndex := Items.IndexOf('Vous avez fait un autre choix');
> end;
> end;
>
> May Delphi be with you
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> > J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :
> >
> > ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
> > Merci
> > MagicVinni
>
mercredi 18 décembre 2002 à 22:46:28 | Re : et si on veut garder l'item "autre"?

Nono40

Il y a une autre méthode, qui réalise ce que tu veux. Mais c'est un peu détourné. Met la propriété Style du ComboBox à csOwnerDrawFixed, puis ajoute le code suivant dans OnDrawItem :
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
With ComboBox1 Do With Canvas Do
Begin
FillRect(Rect);
if odSelected In State
Then Font.Color := clHighLightText
Else Font.Color := clBtnText;
If Index>=0
Then Begin
If (Items[Index]='Autre')And (odComboBoxEdit In State )
Then TextOut(Rect.Left, Rect.Top, 'Vous avez fait un autre choix')
Else TextOut(Rect.Left, Rect.Top, Items[Index]);
End;
End;
end;


--- Nono40@fr.st ---
Nouveau ---> Nono40.fr.st


-------------------------------
Réponse au message :
-------------------------------

> Merci,
> Mais je voudrais pouvoir garder l'item "autre" et seulement changer le texte de la combobox, c'est possible tu penses?
> Merci
> MagicVinni
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Dans l'évènement OnChange du composant TComboBox :
> > procedure TForm1.ComboBox1Change(Sender: TObject);
> > begin
> > with ComboBox1 do
> > if Items.IndexOf('Autre') = ItemIndex then
> > begin
> > Items[ItemIndex] := 'Vous avez fait un autre choix';
> > ItemIndex := Items.IndexOf('Vous avez fait un autre choix');
> > end;
> > end;
> >
> > May Delphi be with you
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour,
> > > J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :
> > >
> > > ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
> > > Merci
> > > MagicVinni
> >
>
mercredi 18 décembre 2002 à 22:47:18 | Re : et si on veut garder l'item "autre"?

Delphiprog

Administrateur CodeS-SourceS
La propriété Text est une propriété publiée en lecture/écriture. Celà est donc possible.

May Delphi be with you


-------------------------------
Réponse au message :
-------------------------------

> Merci,
> Mais je voudrais pouvoir garder l'item "autre" et seulement changer le texte de la combobox, c'est possible tu penses?
> Merci
> MagicVinni
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Dans l'évènement OnChange du composant TComboBox :
> > procedure TForm1.ComboBox1Change(Sender: TObject);
> > begin
> > with ComboBox1 do
> > if Items.IndexOf('Autre') = ItemIndex then
> > begin
> > Items[ItemIndex] := 'Vous avez fait un autre choix';
> > ItemIndex := Items.IndexOf('Vous avez fait un autre choix');
> > end;
> > end;
> >
> > May Delphi be with you
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour,
> > > J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :
> > >
> > > ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
> > > Merci
> > > MagicVinni
> >
>
jeudi 19 décembre 2002 à 19:53:44 | Merci

magicvinni

Merci oh maitre :)
MagicVinni


-------------------------------
Réponse au message :
-------------------------------

> Il y a une autre méthode, qui réalise ce que tu veux. Mais c'est un peu détourné. Met la propriété Style du ComboBox à csOwnerDrawFixed, puis ajoute le code suivant dans OnDrawItem :
> procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
> Rect: TRect; State: TOwnerDrawState);
> begin
> With ComboBox1 Do With Canvas Do
> Begin
> FillRect(Rect);
> if odSelected In State
> Then Font.Color := clHighLightText
> Else Font.Color := clBtnText;
> If Index>=0
> Then Begin
> If (Items[Index]='Autre')And (odComboBoxEdit In State )
> Then TextOut(Rect.Left, Rect.Top, 'Vous avez fait un autre choix')
> Else TextOut(Rect.Left, Rect.Top, Items[Index]);
> End;
> End;
> end;
>
>
> --- Nono40@fr.st ---
> Nouveau ---> Nono40.fr.st
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Merci,
> > Mais je voudrais pouvoir garder l'item "autre" et seulement changer le texte de la combobox, c'est possible tu penses?
> > Merci
> > MagicVinni
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Dans l'évènement OnChange du composant TComboBox :
> > > procedure TForm1.ComboBox1Change(Sender: TObject);
> > > begin
> > > with ComboBox1 do
> > > if Items.IndexOf('Autre') = ItemIndex then
> > > begin
> > > Items[ItemIndex] := 'Vous avez fait un autre choix';
> > > ItemIndex := Items.IndexOf('Vous avez fait un autre choix');
> > > end;
> > > end;
> > >
> > > May Delphi be with you
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Bonjour,
> > > > J'ai un comboBox, avec une liste de choix et j'ai rajoutté un dernier item : "autre". Je voudrais que quand on clique sur autre, il y ai ecrit dans la comboBox : 'Vous avez fait un autre choix'. Je fais donc :
> > > >
> > > > ComboBox.Text:='Vous......' et là rien ne se passe puisque lorque l'on choisit "autre" et bien il est écrit "autre". Comment faire donc pour forcer l'affichage du texte?
> > > > Merci
> > > > MagicVinni
> > >
> >
>
mercredi 12 février 2003 à 16:44:13 | Re : ComboBox.Text

joetecher

Salut c'est joé....
_ Ajoute un Timer sur Form1
_Règle l'interval a 1
_Et ajoute se code entre begin et end:
if combobox1.SelText ='autre' then
combobox1.Text:='Vous avez fait un autre choix';
_______________________
J'éspère que sa ta aider bay....:)


Cette discussion est classée dans : combobox, text, choix


Répondre à ce message

Sujets en rapport avec ce message

Débutante en rade ... [ par bakik ] Bonjour à tous,La gpetite débutante que je suis s'ets lancée dans un projet et je suis en rade complète.Voila le topo : J'ai d'un côté un fichier exce combobox [ par Rankin ] Salut, je voudrais savoir quelle est la procédure à utiliser pour sélectionner un élément dans une DBcombobox afin qu'il reste affiché dans la case ap Combobox [ par stu76 ] Bonjour,J'ai un prob débile mais je n'arrive pas à mémoriser le contenu de mon combobox. Voici mon source :procedure TForm2.btnAjouterclasClick(Sender Ajouter et extraire du text d'un combobox [ par Francky23012301 ] Salut à tous, J'ai deux question par rapport aux combobox : *Je souhaite insérer dans un item de ma combobox, le texte que je viens d'entrer dans ma Affectation à partir de mon Combobox. [ par jennybless ] Salut!C'est juste pour une question logique:J'ai un combobox ayant par exemple 5 items (1,2,3,4,5). Et j'ajoute un edit.Que veux-je faire? je suis ent vider ces edits et combobox en une fois. Au lieu de... [ par leader2000 ] Bonjour!Les codes colorés de rouge me permettent de vides mes edits et combobox. Je voulais changer de methode: comment pourrai-je vider ceux-ci qu'av problème Combobox et affichage d'un champ. [ par djynn62 ] Bonjour a tous.Je suis confronté a un petit problème.J'ai besoin d'entrer la valeur d'un champ dans un ComboBox (Grade), bien qu'après avoir essayer a comment utilisé un combobox [ par miiiiidou19 ] 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 [D2010] Création d'un composant dérivé de la combobox [ par charleslaplante ] Bonjour à tous, J'ai créé un composant qui se base sur l'utilisation de la combobox et qui permet d'historiser des recherches effectuées par les util Query Insert et combobox problème [ par FlagerRk ] Bonjour, j'ai essayer de regarder dans les différents topic et je n'ai malheureusement pas trouvé la réponse a mon problème...surement tres bete :-\pr


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,139 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales