[win32] ListBox MultiColonne

Version imprimable

30/01/2007, 21h34
edrin17

[win32] ListBox MultiColonne

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:

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é :D.
Merci de vos réponses.

PS:C'est quelle version de Delphi celle de Developpeur Studio 2006 ?
30/01/2007, 21h53
Sunchaser

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

;)
30/01/2007, 22h05
edrin17

Ben parce que j'arrive meme pas à stocker un String dans une ListView ! Désolé pour ma médiocrité :oops:
30/01/2007, 22h37
edrin17

C'est bon j'ai utilisé un TListView faut dire qu'il faut aller le chercher profond le TListView.Items.add.caption:=Tstring. :marteau:
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 ?

Essayez ceci

Essayez ceci :

Code:

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;