Remplir ListView [Résolu]
cs_kabakas
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Dernière intervention
- 4 décembre 2010
A voir également:
- Delphi listview
- Listview delphi - Meilleures réponses
- Tlistview delphi - Meilleures réponses
- Delphi / Pascal : Drag 'n' drop de l'explorateur vers une listview - CodeS SourceS - Guide
- Delphi / Pascal : Mettre des progressbar dans une listview - CodeS SourceS - Guide
- Couleur Entetes Listview ✓ - Forum - Visual Basic
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
10 réponses
Meilleure réponse
Pardon, erreur de renommage
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
aListItem:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
122 internautes nous ont dit merci ce mois-ci
- Messages postés
- 32
- Date d'inscription
- jeudi 2 janvier 2003
- Dernière intervention
- 8 juillet 2010
salut voici un petit exemple
pour plusieurs colonnes dans une listeview
var
liste : TListItems;
i : integer;
begin
liste := ListView1.Items;
for i := 0 to 3 do
begin
liste.Add;
liste.Item[i].Caption := 'test ' + IntToStr(i);
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
end;
pour plusieurs colonnes dans une listeview
var
liste : TListItems;
i : integer;
begin
liste := ListView1.Items;
for i := 0 to 3 do
begin
liste.Add;
liste.Item[i].Caption := 'test ' + IntToStr(i);
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
liste.Item[i].SubItems.Add('test'+IntToStr(i));
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
122 internautes nous ont dit merci ce mois-ci
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
Il dit quoi le règlement ? on cherche avant de poster</italique>
En tapant dans google : Delphi+ListView on tombe la dessus : http://cc.borland.com/Item/13329
Ce qui donne ceci par exemple :
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
a:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Si tout le monde pose une question sans prendre le temps de chercher, on est pas sortie de l'auberge.
En tapant dans google : Delphi+ListView on tombe la dessus : http://cc.borland.com/Item/13329
Ce qui donne ceci par exemple :
procedure TForm1.FormCreate(Sender: TObject);
var
aListItem: TListItem;
begin
a:=ListView1.Items.Add;
aListItem.Caption:='cool';
end;
Si tout le monde pose une question sans prendre le temps de chercher, on est pas sortie de l'auberge.
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 4996
- Date d'inscription
- dimanche 26 février 2006
- Dernière intervention
- 27 mars 2018
- Messages postés
- 46
- Date d'inscription
- samedi 19 janvier 2008
- Dernière intervention
- 7 mai 2011
- Messages postés
- 58
- Date d'inscription
- dimanche 24 décembre 2000
- Dernière intervention
- 10 février 2009
- Messages postés
- 33
- Date d'inscription
- lundi 10 mars 2003
- Dernière intervention
- 4 décembre 2010
Bonjour,
En Cherchant une soluce pour mon problème, j'ai lu votre demande qui date un peu mais bon çà pourra peut être aider quelqu'un...
Voilà pour remplis une liste avec une BD :
Cordialement
Alex
En Cherchant une soluce pour mon problème, j'ai lu votre demande qui date un peu mais bon çà pourra peut être aider quelqu'un...
Voilà pour remplis une liste avec une BD :
while not QAccessData.Eof do
begin
list1:=ListView1.Items.Add;
list1.Caption:=QAccessData.FieldByName('nom').Text+', '+QAccessData.FieldByName('prenom').Text;
list1.SubItems.Add(QAccessData.FieldByName('mail').Text);
DataPTX.QAdresseC.Next;
end;
Cordialement
Alex
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.