Utilisation du Compo ShellListView

michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010 - 26 juin 2005 à 15:31
cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 - 27 juin 2005 à 13:47
Bonjour

Apres avoir ecrit cette procedure pour recuperer le contenu de la selection , J'ai rien dans Item.caption ???
Y a t-il une solution Merci.

procedure TForm1.Button2Click(Sender: TObject);
Var Item : TlistItem;
Begin
Item:= Form1.ShellListView1.Selected;
While Item <> nil do
Begin
ShowMessage(Item.caption);
Form1.ListBox1.Items.Add(Item.Caption);
Item := Form1.ShellListView1.GetNextItem(Item, sdAll, [isSelected]);
End;


end;

Michel

1 réponse

cs_Kenavo Messages postés 702 Date d'inscription vendredi 21 mars 2003 Statut Membre Dernière intervention 1 octobre 2009 5
27 juin 2005 à 13:47
Salut,

A la place de Item.Caption, il faut utiliser ShellListView1.Folders[Item.Index].DisplayName



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !



http://noepatents.eu.org/index.php/NON_aux_brevets_logiciels

[%3C/body ]
0
Rejoignez-nous