tree expand

Bonjour,


dans mon script j'utilise les branches du style

- c:

+ mes documents

...

j'ai 2 branches de ce style, un pour selectionner le dossier puis en cliquent sur un botton ca nous ammene dans le deuxieme arbre contenant le fichier souhaité (pour moi c'est mp3)


Ce que j'aimerais faire c'est que le 2eme arbre s'"expand" ouvre toutes les branches automatiquement.


voici la portion du code

procedure TFormLecteurMP3.Affichage(chemin : string; i : integer);
var
TEMPO : String;
begin
TEMPO := chemin;
if pos('\',TEMPO) = 0 then begin
TreeViewMP3.Items.AddChild(nil,TableauMP3[i].MP3) ;
end
else
begin

AfficherSousRepertoire(chemin);

end;
end;


J'attend impatiemment votre aide

Merci d'avance

Je ne sais pas si j'ai bien compris, mais as-tu essayé le TTreeView.FullExpand?

Il y a une méthode Expand ou ExpandAll pour ouvrir un TTreeNode et ses fils
:f1: pour plus d'info