Discussion :

[OutOfRange]

Bonjour
Je cherche un moyen de gérer une hiérarchie arborescente d'éléments, mais non visuelle
J'ai bien pensé à une variable de type tableau, mais ça ne correspond pas à ce que je veux faire
C'est là que je me suis dit qu'un TTreeNodes ferait l'affaire mais apparement, on ne peut pas en créer une instance sans owner visuel de type TTreeView
Si qqn a une piste

[Paul TOTH]

et bien tu n'as plus qu'à tout code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
  TNode = class
   private
    FParent: TNode;
    FChilds: TList; // of TNode ... si nécessaire
  public
    constructor Create;
    destructor Destroy; override;
    function Add: TNode;
    procedure AddChild(AChild: TNode);
    ...
  end;

[OutOfRange]

Damned !
Je ne me sens pas assez balaise pour faire ce genre de truc
Y'aurait pas plutôt moyen d'hériter une nouvelle classe de TTreeNode, et de l'affranchir de son propriétaire visuel ?
Bah sans doute que non, vu que la classe ancêtre TTreeNode exige un owner TTreeView

[Paul TOTH]

Damned !
Je ne me sens pas assez balaise pour faire ce genre de truc
Y'aurait pas plutôt moyen d'hériter une nouvelle classe de TTreeNode, et de l'affranchir de son propriétaire visuel ?
Bah sans doute que non, vu que la classe ancêtre TTreeNode exige un owner TTreeView

euh...en quoi est-ce compliqué ?!

tu dois juste déterminer comment tu veux accéder aux noeuds pour choisir la structure à appliquer.

- Node.Childs[Index] (besoin d'une liste)
- Node.First, Node.Next (liste chaînée)
- Node.Prev (double liste chaînée)
- pouvoir créer des noeuds personnalisés ou les mêmes à tous les niveaux

personnellement j'ai souvent remplacé le TTreeView par un TListBox en VirtualOwnerDraw attaché à une arborescence d'objets maison, ça marche vachement bien