Ajouter et extraire du text d'un comboboxRésolu

Question

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 combobox en appuyant sur un bouton 

j'utilise la synthaxe suivante : 
combobox1.items.add(combobox1.text[combobox1.itemIndex]);

Une nouvelle ligne apparait mais evidemment mon texte n'est pas dedans

*Je voudrais récupérer en sélectionnant un item, le texte qu'il contient pour l'utiliser par la suite. Cependant à chaque tentative, je ne récupère que le numéro de l'item ou du vide

Merci 

A+

jlen100 · Accepted Answer

salut

il faut utiliser le double click

procedure TForm1.ComboBox1DblClick(Sender: TObject);

begin

   with combobox1 do

    AddItem(text,Items);



end;

attention il faut rajouter un controle de pr&#233;sence de l'item sinon il sera dupliqu&#233;



@+

jlen

Francky23012301 · Answer

Merci Jlen,

Pour la seconde question : je souhaite faire un truc du style :

Edit1.text:=//Texte contenu dans l'item de la combobox que je double clique//

Francky23012301 · Answer

with combobox1 do
begin
edit1.text:=Items.text;

jlen100 · Answer

je n'avais pas vu la 2eme question (la vue un peu basse!!)

procedure TForm1.ComboBox1DblClick(Sender: TObject);

begin

    with combobox1 do

    begin

    if combobox1.Items.IndexOf(text)=-1 then

    AddItem(text,Items);

    edit1.Text:=text;

    end;



end;



end;

et comme ce matin j'ai l'humeur g&#233;n&#233;reuse je t'ai rajout&#233; le test pour &#233;viter les doublons



@+

jlen

jlen100 · Answer

et m&#234;me

procedure TForm1.ComboBox1DblClick(Sender: TObject);

begin

    with combobox1 do

    begin

    if Items.IndexOf(text)=-1 then

    AddItem(text,Items);

    edit1.Text:=text;

    end;



end;

Ajouter et extraire du text d'un combobox

5 réponses

Votre réponse

Discussions similaires