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.
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.