Ttreeview et tpagecontrol

Description

Utilisation d'un TTreeview dont les noeuds référencent un controle visuel (ici un TPageControl) et d'un TPageControl dont les onglets référencent chacun un noeud dans l'arborescence du contrôle visuel TTreeview.
En cliquant sur un noeud, l'onglet est automatiquement sélectionné.
En cliquant sur un onglet, le noeud est automatiquement sélectionné.
Magique, non ?

Source / Exemple :


{-----------------------------------------------------------------------------
 Unit Name: UMainForm
 Author:    delphiprog
 Purpose:  Utilisation conjuguée d'un TTreeView et d'un TPageControl
           pour la sélection d'un onglet/d'un noeud.
           30/04/2004 : Recomposition d'un chemin depuis la racine
           jusqu'au noeud contenant une chaine donnée.
 History:
   04/01/2003 : création et publication sur www.DelphiFr.com
 Web : www.delphiprog.fr.fm
 Usage : libre
 Observations : emploi de la méthode dite d'adressage par référence. En effet,
   il est nettement plus efficace d'utiliser cette méthode que celle de
   recherche d'ojets par le nom (autrement dit en employant une chaîne
   de caractères).
   On utilisera pour celà :

  • la propriété Tag des onglets pour y stocker une référence transtypée
en longint pour être compatible
  • la propriété Data des noeuds de l'objet TTreeNode pour y stocker une
référence sur un onglet donné
  • notez que cette affectation peut aussi être faite à l'exécution
-----------------------------------------------------------------------------}

Conclusion :


Testé avec Delphi 4 et Delphi 6.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.