Réponse acceptée !
Regardes aussi cette source :
TTreeView et TPageControl que j'ai publié sur ce forum.
J'ai utilisé une autre méthode : les références (qui sont en fait des pointeurs cachés), beaucoup plus efficaces que des recherches sur des chaînes de caractères.
May Delphi be with you-------------------------------
Réponse au message :
-------------------------------
> Merci Nono !!!
> Tu est l'expert programmeur Delphi
>

=== MAsterC ===

>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Fouille un peu dans l'aide et tu veras que
> > If View.Selected.Text='Sons' Then fonctionne.
> >
> > ---

Nono40@fr.st

---
> > Nouveau --->
Nono40.fr.st> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Ok Merci ! Mais sa ne marche pas avec le "Selected" et avec le "Itemindex".
> > >
> > > Regarder ce code... :
> > >
> > > begin
> > > If View.Items = 'Sons' then
> > > begin
> > > Form10.Tables.Activepage := Form10.TabSheet1;
> > > end;
> > >
> > > Voicei l'erreur :
> > >
> > > [Erreur] Options.pas(49): Types incompatibles : 'String' et 'TTreeNodes'
> > >
> > > ALors le code d'après moi serait bon mais il doit manquer quelque chose pour le completer ... mais quoi je ne sais pas.
> > >
> > > Merci
> > >
> > >
> > >

=== MAsterC ===

> >
>