Passer un composant Tcombobox en parametre

Bonjour à tous,

J'ai besoin de votre aide. Dans mon application, lorsque je clique sur un bouton, je souhaite créer et remplir une ComboBox. Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

c:=Tcombobox.Create(self); c.Width := 190; c.Height := 28; c.Top:=110; c.Left:=24; c.Visible:=true; c.Style:=csDropDownList; c.Parent := Panel1; c.Name:='ma_combobox;   actualiser_ma_combo();

---

Après avoir créer ce composant, j'appel la procedure suivante qui me permet d'alimenter la combo a partir d'une base de données mais je souhaiterais passer cette combobox en paramètre. Voila mon code permettant d'actualiser ma combo :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from categorie'); ADOQuery.Open;   ma_combo_a_remplir.Clear; while not ADOQuery.Eof do begin ma_combo_a_remplir.Items.Add(ADOQuery.FieldByName('libelle_categ').AsString); ADOQuery.Next; end;

---

Comment passer un composant TCombobox en paramètre ?

Merci à vous

Pas sur que cela soit çà que tu veuilles

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.RemplirCombobox(ACombo : TComboBox); begin ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from categorie'); ADOQuery.Open;   ACombo.Clear; while not ADOQuery.Eof do begin ACombo .Items.Add(ADOQuery.FieldByName('libelle_categ').AsString); ADOQuery.Next; end; end;

---

Appel :

Code:

---

1 2	RemplirCombobox(c);

---

Sinon il serait peut être plus simple d'utiliser un DbLookupComboBox (il y a le nécessaire quand la :faq: delphi)

Si si c'est exactement ca que je veux, j'avais déjà essayer mais ca me met : TCombobox identificateur non déclaré..

Citation:

---

Envoyé par bboy_lil_mak

Si si c'est exactement ca que je veux, j'avais déjà essayer mais ca me met : TCombobox identificateur non déclaré..

---

En gros ca veut dire qu'il ne trouve pas de liens dans les unités vers la classe TCombobox. En général pour régler ce problème :

1- Tu positionnes le curseur sur TCombobox
2- Tu appuies sur F1
3- Tu cherches dans propriétés la colonne unité (ici StdCtrls)
4- Tu ajoutes l'unité dans les uses de ton unité où tu as la fonction

Salut

Une approche plus générale consiste à passer non pas la ComboBox mais la TStrings associée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.RemplirListe(Strs: TStrings); begin ADOQuery.SQL.Clear; ADOQuery.SQL.Add('select * from categorie'); ADOQuery.Open;   Strs.Clear; while not ADOQuery.Eof do begin Strs.Add(ADOQuery.FieldByName('libelle_categ').AsString); ADOQuery.Next; end; end;

---

puis à l'appel

Code:

---

1 2	RemplirListe(c.items);

---

Pour ton dernier problème, ajoutes l'unité StdCtrls dans la clause uses.
@+

Nickel ca fonctionne avec l'ajout de StdCtrls dans le uses. Merci beaucoup à vous =)

Ce qui signifie que tu n'as pas tenu compte de la remarque de e-ric car TStrings est déclaré dans "classes".

Personnellement, je trouve que passer un composant en paramètre est déjà limite mais passer un composant en paramètre alors que tu as uniquement besoin d' une seule de ces propriétés est une pratique à bannir absolument !

@popo : Si je me souviens bien Classes, ainsi que quelques autres, est ajoutée automatiquement quand une fiche est créée. Cela donne un minimum de service quand on écrit du code, merci à la bienveillance des concepteurs de Delphi. bboy_lil_mak est donc innocenté, peut-être malgré lui ;), sur ce coup-là.Le fait que le compilo n'ai rien dit au sujet de son code de création m'interpelle plus, est-ce que ce code se trouve dans celui de la fenêtre ??

@bboy_lil_mak : quand tu crées dynamiquement un composant, il faut t'assurer que l'unité correspondante se trouve bien dans la bonne clause uses (il y en a deux). On atteint les limites de la bidirectionnalité, pour les composants placés en conception, Delphi se charge de la mise à jour de la clause uses. Mais pour les composants créés à l'exécution, quedale, c'est pour ta pomme.

Citation:

---

Personnellement, je trouve que passer un composant en paramètre est déjà limite mais passer un composant en paramètre alors que tu as uniquement besoin d' une seule de ces propriétés est une pratique à bannir absolument !

---

Oui, c'est une bonne approche mais dans la pratique, de nombreux développeurs ne suivent pas les canons de la programmation. Il m'arrive d'y déroger(:oops:) mais c'est une question de jugement sur le problème à résoudre. Le fond prévaut sur la forme et pas de dogmatisme mais un petit effort de rigueur ne fait pas de mal.

@popo : Pourquoi dis tu que le fait de passer un composant en paramètre est une pratique à banir ? Enfin dans mon cas je ne vois pas comment faire autrement. Tu me dis que je n'ai besoin que d'une seul des propriété de la Combo mais je ne vois pas pourquoi. Il me faut l'intégralité de la combo sachant que je veux pouvoir la clear et la remplir a partir non pas de ma fiche mais d'une unité reliée à cette fiche (ce qui répond a la question de e-ric).

P.S : j'ai essayé de passer en parametre un TString mais il me marque également "identificateur non déclaré".

Citation:

---

Envoyé par bboy_lil_mak

@popo : Pourquoi dis tu que le fait de passer un composant en paramètre est une pratique à banir ?

---

Je n'ai pas dis que passer un composant en paramètre est une pratique à bannir. Relis bien, j'ai précisé qu'il ne fallait pas le faire si tu n'utilises qu'une seule de ses propriété.

Citation:

---

Envoyé par bboy_lil_mak

Enfin dans mon cas je ne vois pas comment faire autrement. Tu me dis que je n'ai besoin que d'une seul des propriété de la Combo mais je ne vois pas pourquoi. Il me faut l'intégralité de la combo sachant que je veux pouvoir la clear et la remplir a partir non pas de ma fiche
mais d'une unité reliée à cette fiche (ce qui répond a la question de e-ric).

P.S : j'ai essayé de passer en parametre un TString mais il me marque également "identificateur non déclaré".

---

Pour faire ça tu n'a pas besoin de passer tout le composant. Comme l'a indiqué e-ric, les éléments de la liste sont stockés dans la propriété "Items" de ladite combo. Cette propriété est de type "TStrings" (ne pas oublier le "s") qui contient entre autre les méthodes suivantes :
- clear : pour vider la liste
- add : pour ajouter un élément dans la liste

Citation:

---

Envoyé par bboy_lil_mak

@popo : Pourquoi dis tu que le fait de passer un composant en paramètre est une pratique à banir ?

---

c'est ce que je fais pour remplir mes dbcombobox, mais aussi d'autre type de composant qui on une proprité type Tstrings, :aie:

Merci pour les infos c'est toujours bon à savoir.
Cependant c'est bien "TStrings" que j'avais marqué et qui m'indiquait "identificateur non déclaré".

C'est toujours pas résolu ?

Je l'ai mentionné précédemment, "TStrings" est déclaré dans l'unité "Classes".

e-ric a tout à fait raison sur le fait que cette unité est ajoutée automatiquement lorsqu'on créee une fiche. Ce n'est cependant pas le cas lorsque tu crée une unité vierge comme c'est le cas pour toi.