michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010
-
26 juin 2005 à 15:31
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDerniè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;