Discussion :

[valoji]

Bonjour,

Pouvez-vous m'aider ? J'ai un treeview_actes sur ma fiche, et je voudrais créer un arbre2 que je détruit à la fin de ma procédure, mais il me dit n'est pas rattaché à un parent.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Procedure TFic_Ccam_Consult.BitBtn_RchClick(Sender: TObject);
var
 F: TForm;  
 Arbre2 : TTreeView;
 
begin
  F := TForm.Create(nil);
  arbre2 :=TTreeView.Create(self);
  a := nil;
  arbre2.Items.Clear ;
  a:= arbre2.Items.AddChildfirst(arbre2.Selected,'Niveau1') ;// ====>J'ai un pb à ce niveau là, il me dit arbre2 n'est pas rattaché à un parent
  ....
 
 treeview_actes := arbre2;
...
end,

MERCI,
VALOJI

[valoji]

J'ai trouvé mon erreur,

J'avais oublié arbre2.Parent := F;

Mon autre probleme c'est lorsque que je fai

Treeview_acte := Arbre2.
Ma fiche se bloque

[anapurna]

salut

peut tu mettre le tag resolu

merci pour ceux qui arrive apres la batail
sinon c'est pas plus simple d'utiliser le treeview deja
existant ?
en truc dans ce genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  TN,TNroot : TTreeNode;
begin
 
   treeview_actes.Items.Clear;
   treeview_actes.ShowRoot := True;
   treeview_actes.ShowLines := True;
 
   TNroot :=   treeview_actes.Items.Add(Nil,'Base');
   TNroot.Collapse(false);
   TNroot.HasChildren := True;
   TNroot.ImageIndex := id_root;
   TNroot.SelectedIndex := id_root;
 
  TN :=   treeview_actes.Items.AddChild(TNroot, 'Niveau1');
  TN.HasChildren := True;
  TN.ImageIndex := id_Table;
  TN.SelectedIndex := id_Table;
 
  TN :=   treeview_actes.Items.AddChild(TNroot, 'Niveau2');
  TN.HasChildren := True;
  TN.ImageIndex := id_Table;
  TN.SelectedIndex := id_Table;
 
...
end;

@+ Phil