begin process at 2010 02 10 12:56:20
  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 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 hauteur combobox [ par piscine ] bonsoir, existe t-il un propriété du combobox qui permette d'ajuster sa liste déroulante au nombre d'item qu'elle contient pour éviter d'avoir 'un asc Deplacer le curseur d'un edit à un edit [ par nekinox ] Bonsoir,Le titre n'est pas très clair désolé, je m'explique :Il s'agit d'un programme avec plusieurs editX.text dans form1L'utilisateur rentre des don


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

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 : 0,250 sec (3)

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