Autre possibilité en reprenant ton code :
Var
i1 : Integer ;
Begin
TreeView1.Items.BeginUpdate ;
For i1:=TreeView1.Items.Count-1 downto 2 do
Begin
...
Type: Messages; Utilisateur: ALWEBER
Autre possibilité en reprenant ton code :
Var
i1 : Integer ;
Begin
TreeView1.Items.BeginUpdate ;
For i1:=TreeView1.Items.Count-1 downto 2 do
Begin
...
Tu peux aussi utiliser tvXML.FullCollapse;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.