Discussion :

[bbchess]

Bonjour à tous,
j'essaie d'utiliser un contrôle Tlistbox mais je ne comprend pas la syntaxe à utiliser pour ajouter un item;
L'aide de delphi me donne:
procedure AddItem(Item: String; AObject: TObject);
mais je ne sait pas ou trouver aobject;
J'essaie sans succés form1.ListBox1.AddItem('toto') mais une erreur se produit à la compilation.
Il me semble qu'il faut écrire form1.ListBox1.AddItem('toto', AObject)
mais où trouver ce AObject.
Merci de me répondre

[jeromelef2]

http://www.developpez.net/forums/d35...a/#post2170130

[bbchess]

merci jeromlef2,
c'est résolu acec listBox.Items.add
au lieu de listBox.Additem

[guillemouze]

Le AObject est un objet a toi que tu souhaiterai associer avec cette ligne du ListBox, mais tu n'es pas obligé de le mettre. Dans ce cas, tu as juste à faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

form1.ListBox1.AddItem('toto', nil);

Mais ca peut etre très pratique pour associer directement un objet avec ta listbox. Par exemple, une liste de form à afficher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
listbox1.addItem('form 1', Form1);
listbox1.addItem('form 5', Form5);
listbox1.addItem('form 2', Form2);
 
//et sur un btnClick :
if listbox1.ItemIndex <> -1 then
  TForm(listbox1.items.Object[listbox1.ItemIndex]).ShowModal;

[e-ric]

[quote]

J'essaie sans succés form1.ListBox1.AddItem('toto') mais une erreur se produit à la compilation

La méthode AddItem est publique, la seule raison qui explique ton problème initial est que tu n'a pas déclaré l'unité StdCtrls dans la clause uses de l'unité depuis laquelle tu fais l'appel form1.ListBox1.AddItem('toto'). Par contre, l'unité Classes doit y figurer car l'appel listBox.Items.add fonctionne.

@+

[guillemouze]

La méthode AddItem est publique, la seule raison qui explique ton problème initial est que tu n'a pas déclaré l'unité StdCtrls dans la clause uses de l'unité depuis laquelle tu fais l'appel form1.ListBox1.AddItem('toto'). Par contre, l'unité Classes doit y figurer car l'appel listBox.Items.add fonctionne.

@+

En fait non,
listBox : TListBox -> StdCtrls
listBox.Items : TStrings -> Classes

quand tu accède à une proprieté d'un objet, tu n'es pas obligé d'avoir l'unité contenant le type de cette proprieté dans tes uses. Dans ce cas, il faut juste StdCtrls car il ne stock qu'une TListBox. On peut même imaginer qu'il pourrait être dans une unité "unit2" qui a comme seul uses "unit1" (qui contient la form1), et faire "form1.listBox1.Items.Add('toto');". Certes c'est un peu crade, mais techniquement ca fonctionne.

Le problème est juste que AddItem n'a pas de valeur par défaut pour le AObject, et qu'il faut explicitement le préciser ou utiliser .Items.Add

[bbchess]

merci à tous pour cette aide rapide

[e-ric]

Effectivement, je viens d'aller vérifier.

Pour ma défense, j'avais pas Delphi sous la patte et ça fait longtemps que je n'ai pas fait ce genre de code.

Je ferai acte de contrition: pas de bière,ce soir !!

@+