Discussion :

[edrin17]

Bonjour Amis Developpeurs,
Je suis débutant en Delphi.
Je cherche à savoir comment on fait pour 'stocker' un String dans la deuxieme colone d'une listbox à 2 colonnes.
Voila 'en gros' ce que je cherche à obtenir dans ma listbox:
*************
nom_1 | Prenom_1
nom_2 | Prenom_2
nom_3 | Prenom_3
nom_n | Prenom_n
**************
Quel modification faut-il apporter au code:

Code :

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

ListBox1.Items.Add(Edit1.Text);

afin de specifier la colonne désirée?

J'ai chercher du mieux que j'ai pu sur le forum et je n'ai pas trouvé de réponse.Je sais que les bons developpeurs utilisent plutot le composant TListView mais il me fais un peu peur (bcp de propriétés, des sous items... ça me semble un peu compliqué) et puis je vois pas l'interet de definir un propriété TListBox.Column si c'est pour la laisser de coté .
Merci de vos réponses.

PS:C'est quelle version de Delphi celle de Developpeur Studio 2006 ?

[Sunchaser]

Bonsoir,
Question bête ... et pourquoi pas un Listview ?

[edrin17]

Ben parce que j'arrive meme pas à stocker un String dans une ListView ! Désolé pour ma médiocrité

[edrin17]

C'est bon j'ai utilisé un TListView faut dire qu'il faut aller le chercher profond le TListView.Items.add.caption:=Tstring.
Bon, ben Merci quand même.
Je sais pas si il faudrait pas ecrire des tutos de bases sur certains composants dans la F.A.Q ?

[ChrisRAm]

Essayez ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure TForm1.Button1Click(Sender: TObject); 
const 
  // The maximum number of Tabs 
  // Die Anzahl der maximal aufretenen Tabs eintragen 
  MAX_TABS = 4; 
  Tab = #9; 
var 
  Tabulators: array[0..MAX_TABS] of Integer; 
begin 
  { Set the Tabulator Widths / Tabulatorweiten festlegen} 
  Tabulators[0] := 70; 
  Tabulators[1] := 120; 
  Tabulators[2] := 100; 
  Tabulators[3] := 80; 
  Listbox1.TabWidth := 1; 
  { Set the Tabulators / Tabulatoren setzen } 
  SendMessage(ListBox1.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators)); 
  { Add some Items / Items hinzufügen.} 
  Listbox1.Items.Add('Peter' + Tab + 'Meier' + Tab + '1234-56' + Tab + 'Otzlingen'); 
  Listbox1.Items.Add('Johann Jones' + Tab + 'Krauter' + Tab + '123-45'); 
end;