Discussion :

[nmathon]

Bonjour,

j'utilise un TTreeView pour lister des tables et leurs champs. J'ai ajouté un TCheckBox (option) qui permet de modifier la valeur de la propriété AutoExpand du composant TTreeView.

Malheureusement, ça ne fonctionne pas!

Voici mon code (avant le démarrage du traitement):

procedure TfrmPrincipale.chkAutoExpandreClick(Sender: TObject);
begin

tvwTables.AutoExpand := chkAutoExpandre.Checked;

end;

Merci d'avance pour votre aide!

[seb.49]

ca met une erreur ? ou ca fait rien ?

[nmathon]

Ça ne fait absolument rien!

[Seb]

Salut,

La seule différence, si
1) AutoExpand := True => quand tu cliques sur un noeud, la branche de ce noeud se développe sans être obligé de cliquer sur le + à côté du noeud.

2) AutoExpand := False => Pour développer la branche associée au noeud, tu est obligé de cliquer sur le +...

Ton code marche très bien...

Tu ne confondrais pas avec FullCollapse ou FullExpand?

A+,

Seb.

[nmathon]

Peut-être...

Enfin, j'aimerais bien que mes noeuds se développent au fur et à mesure que je les crée!

Comment je procède?

[nmathon]

Ah, c'est une méthode!

Merci beaucoup!

[Seb]

Re,

Essayes un truc de ce genre :

Code :

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

tvwTables.Items.Item[j].Expand(True);

avec j le numéro du noeud que tu veux développer.

A+,

Seb.